diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2000-06-21 02:46:01 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2000-06-21 02:46:01 +0000 |
commit | 7e73eaee6ef8b4471b90917e8a98ffcb739644b2 (patch) | |
tree | 88f6b25935c670f634a8766b8473076689b9f92a /libguile/gdbint.c | |
parent | 51eb747ebfcac593fced29d073c6b49f57e896aa (diff) | |
download | guile-7e73eaee6ef8b4471b90917e8a98ffcb739644b2.tar.gz |
(SCM_TOP_LEVEL_LOOKUP_CLOSURE): New macro which replaces
SCM_CDR (scm_top_level_lookup_closure_var) everywhere.
Diffstat (limited to 'libguile/gdbint.c')
-rw-r--r-- | libguile/gdbint.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/gdbint.c b/libguile/gdbint.c index 59ad14093..bc0c73ac5 100644 --- a/libguile/gdbint.c +++ b/libguile/gdbint.c @@ -61,7 +61,7 @@ #include "libguile/chars.h" #include "libguile/modules.h" #include "libguile/ports.h" -#include "libguile/root.h" +#include "libguile/fluids.h" #include "libguile/strings.h" #include "libguile/init.h" @@ -256,7 +256,7 @@ gdb_eval (SCM exp) } SCM_BEGIN_FOREIGN_BLOCK; { - SCM env = scm_top_level_env (SCM_CDR (scm_top_level_lookup_closure_var)); + SCM env = scm_top_level_env (SCM_TOP_LEVEL_LOOKUP_CLOSURE); gdb_result = scm_permanent_object (scm_ceval (exp, env)); } SCM_END_FOREIGN_BLOCK; @@ -302,7 +302,7 @@ gdb_binding (SCM name, SCM value) SCM_BEGIN_FOREIGN_BLOCK; { SCM vcell = scm_sym2vcell (name, - SCM_CDR (scm_top_level_lookup_closure_var), + SCM_TOP_LEVEL_LOOKUP_CLOSURE, SCM_BOOL_T); SCM_SETCDR (vcell, value); } |