mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

eval.c tweaks

Browse source 
* libguile/eval.c (eval): Fix a couple of uses of scm_cdr that should
  use CDR.
This commit is contained in:
Andy Wingo 2010-02-18 16:50:57 +01:00
parent 2ac16429ab
commit f3a8d1b745
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/eval.c
View file

@ -356,7 +356,7 @@ eval (SCM x, SCM env)
else else
{ {
while (scm_is_pair (env)) while (scm_is_pair (env))
env = scm_cdr (env); env = CDR (env);
return SCM_VARIABLE_REF return SCM_VARIABLE_REF
(scm_memoize_variable_access_x (x, CAPTURE_ENV (env))); (scm_memoize_variable_access_x (x, CAPTURE_ENV (env)));
} }
@ -373,7 +373,7 @@ eval (SCM x, SCM env)
else else
{ {
while (scm_is_pair (env)) while (scm_is_pair (env))
env = scm_cdr (env); env = CDR (env);
SCM_VARIABLE_SET SCM_VARIABLE_SET
(scm_memoize_variable_access_x (x, CAPTURE_ENV (env)), (scm_memoize_variable_access_x (x, CAPTURE_ENV (env)),
val); val);