diff options
-rw-r--r-- | libguile/eval.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/libguile/eval.c b/libguile/eval.c index e9c8f0b1d..40a8f8bf7 100644 --- a/libguile/eval.c +++ b/libguile/eval.c @@ -1341,7 +1341,7 @@ unmemocopy (SCM x, SCM env) : f; /* build transformed binding list */ z = SCM_EOL; - do + while (SCM_NIMP (v)) { z = scm_acons (SCM_CAR (v), scm_cons (SCM_CAR (e), @@ -1353,7 +1353,6 @@ unmemocopy (SCM x, SCM env) e = SCM_CDR (e); s = SCM_CDR (s); } - while (SCM_NIMP (v)); z = scm_cons (z, SCM_UNSPECIFIED); SCM_SETCDR (ls, z); if (SCM_EQ_P (SCM_CAR (ls), scm_sym_do)) |