From 7e73eaee6ef8b4471b90917e8a98ffcb739644b2 Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Wed, 21 Jun 2000 02:46:01 +0000 Subject: (SCM_TOP_LEVEL_LOOKUP_CLOSURE): New macro which replaces SCM_CDR (scm_top_level_lookup_closure_var) everywhere. --- libguile/debug.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'libguile/debug.c') 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); -- cgit v1.2.3