summaryrefslogtreecommitdiff
path: root/libguile/eval.c
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>1997-01-18 11:49:35 +0000
committerMarius Vollmer <mvo@zagadka.de>1997-01-18 11:49:35 +0000
commit9b8d32883ea22e8daa315813f9c51aa2ff546488 (patch)
tree398fb39c558a748c8031fcc85007d860693f0a67 /libguile/eval.c
parent80bc78903aa991a34736931a4ec96eec1fdaf47d (diff)
downloadguile-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.c3
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);