mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +02:00
Code Activity

* eval.c (scm_ceval, scm_deval): use `SIDEVAL' instead of

Browse source 
SCM_CEVAL when evaluating subforms of `begin' forms.  SCM_CEVAL
can not deal with immediates.
This commit is contained in:
Marius Vollmer 2001-02-13 01:09:00 +00:00
parent 645e38d9ac
commit a2abcb5823
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/eval.c
View file

@ -1912,7 +1912,7 @@ dispatch:
while (SCM_NNULLP (t.arg1 = SCM_CDR (t.arg1))) while (SCM_NNULLP (t.arg1 = SCM_CDR (t.arg1)))
{ {
SCM_SETCAR (env, scm_current_module_lookup_closure ()); SCM_SETCAR (env, scm_current_module_lookup_closure ());
SCM_CEVAL (SCM_CAR (x), env); SIDEVAL (SCM_CAR(x), env);
x = t.arg1; x = t.arg1;
} }
/* once more, for the last form */ /* once more, for the last form */