diff options
-rw-r--r-- | libguile/eval.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/eval.c b/libguile/eval.c index afe685267..ea8a77153 100644 --- a/libguile/eval.c +++ b/libguile/eval.c @@ -356,7 +356,7 @@ eval (SCM x, SCM env) else { while (scm_is_pair (env)) - env = scm_cdr (env); + env = CDR (env); return SCM_VARIABLE_REF (scm_memoize_variable_access_x (x, CAPTURE_ENV (env))); } @@ -373,7 +373,7 @@ eval (SCM x, SCM env) else { while (scm_is_pair (env)) - env = scm_cdr (env); + env = CDR (env); SCM_VARIABLE_SET (scm_memoize_variable_access_x (x, CAPTURE_ENV (env)), val); |