diff options
author | Marius Vollmer <mvo@zagadka.de> | 1997-01-18 11:49:35 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 1997-01-18 11:49:35 +0000 |
commit | 9b8d32883ea22e8daa315813f9c51aa2ff546488 (patch) | |
tree | 398fb39c558a748c8031fcc85007d860693f0a67 /libguile/eval.c | |
parent | 80bc78903aa991a34736931a4ec96eec1fdaf47d (diff) | |
download | guile-9b8d32883ea22e8daa315813f9c51aa2ff546488.tar.gz |
* symbols.c (scm_sysintern): Renamed to
scm_sysintern_no_module_lookup.
(scm_sysintern): New function to take the place of the old
scm_sysintern. It uses the current toplevel lookup closure to give
the symbol its value. This is a temporary hack to put packages
like gtcltk into their own module.
(scm_can_use_top_level_lookup_closure_var): New variable to tell
us whether `scm_top_level_lookup_closure_var' has been initialized
and is usable.
* eval.c (scm_init_eval): Set it.
Diffstat (limited to 'libguile/eval.c')
-rw-r--r-- | libguile/eval.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/libguile/eval.c b/libguile/eval.c index c4e79d449..44b51768c 100644 --- a/libguile/eval.c +++ b/libguile/eval.c @@ -1,4 +1,4 @@ -/* Copyright (C) 1995,1996 Free Software Foundation, Inc. +/* Copyright (C) 1995,1996,1997 Free Software Foundation, Inc. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by @@ -2907,6 +2907,7 @@ scm_init_eval () scm_top_level_lookup_closure_var = scm_sysintern("*top-level-lookup-closure*", SCM_BOOL_F); + scm_can_use_top_level_lookup_closure_var = 1; scm_i_and = scm_make_synt ("and", scm_makmmacro, scm_m_and); scm_i_begin = scm_make_synt ("begin", scm_makmmacro, scm_m_begin); |