summaryrefslogtreecommitdiff
path: root/libguile/eval.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/eval.c')
-rw-r--r--libguile/eval.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/eval.c b/libguile/eval.c
index e571e7889..55eda7a3d 100644
--- a/libguile/eval.c
+++ b/libguile/eval.c
@@ -2351,6 +2351,8 @@ evapply:
env = EXTEND_ENV (SCM_CAR (x), scm_cons (t.arg1, SCM_EOL), SCM_ENV (proc));
#endif
goto cdrxbegin;
+ case scm_tc7_contin:
+ scm_call_continuation (proc, t.arg1);
case scm_tcs_cons_gloc:
if (SCM_I_OPERATORP (proc))
{
@@ -2376,8 +2378,6 @@ evapply:
}
/* Fall through. */
}
- case scm_tc7_contin:
- scm_call_continuation (proc, t.arg1);
case scm_tc7_subr_2:
case scm_tc7_subr_0:
case scm_tc7_subr_3:
@@ -2472,7 +2472,7 @@ evapply:
#endif
env = EXTEND_ENV (SCM_CAR (SCM_CODE (x)),
scm_cons2 (proc, t.arg1,
- scm_cons (arg2, env)),
+ scm_cons (arg2, SCM_EOL)),
SCM_ENV (x));
x = SCM_CODE (x);
goto cdrxbegin;