summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--libguile/eval.c3
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))