summaryrefslogtreecommitdiff
path: root/libguile/debug.c
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>2000-06-21 02:46:01 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>2000-06-21 02:46:01 +0000
commit7e73eaee6ef8b4471b90917e8a98ffcb739644b2 (patch)
tree88f6b25935c670f634a8766b8473076689b9f92a /libguile/debug.c
parent51eb747ebfcac593fced29d073c6b49f57e896aa (diff)
downloadguile-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/debug.c')
-rw-r--r--libguile/debug.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/debug.c b/libguile/debug.c
index 74129a17f..81b3576e4 100644
--- a/libguile/debug.c
+++ b/libguile/debug.c
@@ -263,7 +263,7 @@ SCM_DEFINE (scm_make_gloc, "make-gloc", 1, 1, 0,
#endif
SCM_VALIDATE_VARIABLE (1,var);
if (SCM_UNBNDP (env))
- env = scm_top_level_env (SCM_CDR (scm_top_level_lookup_closure_var));
+ env = scm_top_level_env (SCM_TOP_LEVEL_LOOKUP_CLOSURE);
else
SCM_VALIDATE_NULLORCONS (2,env);
return scm_make_memoized (SCM_VARVCELL (var) + 1, env);
@@ -328,7 +328,7 @@ SCM_DEFINE (scm_memcons, "memcons", 2, 1, 0,
cdr = SCM_MEMOIZED_EXP (cdr);
}
if (SCM_UNBNDP (env))
- env = scm_top_level_env (SCM_CDR (scm_top_level_lookup_closure_var));
+ env = scm_top_level_env (SCM_TOP_LEVEL_LOOKUP_CLOSURE);
else
SCM_VALIDATE_NULLORCONS (3,env);
return scm_make_memoized (scm_cons (car, cdr), env);