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

[bpt/guile.git] / libguile / eval.c

diff --git a/libguile/eval.c b/libguile/eval.c
index 06d2af0..3b0e884 100644 (file)
--- a/libguile/eval.c
+++ b/libguile/eval.c
@@ -1912,7 +1912,7 @@ dispatch:
          while (SCM_NNULLP (t.arg1 = SCM_CDR (t.arg1)))
            {
              SCM_SETCAR (env, scm_current_module_lookup_closure ());
-             SCM_CEVAL (SCM_CAR (x), env);
+             SIDEVAL (SCM_CAR(x), env);
              x = t.arg1;
            }
          /* once more, for the last form */