summaryrefslogtreecommitdiff
path: root/libguile/eval.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/eval.c')
-rw-r--r--libguile/eval.c14
1 files changed, 1 insertions, 13 deletions
diff --git a/libguile/eval.c b/libguile/eval.c
index 65103a1b2..f6b42c5a8 100644
--- a/libguile/eval.c
+++ b/libguile/eval.c
@@ -295,19 +295,7 @@ eval (SCM x, SCM env)
}
case SCM_M_CONT:
- {
- int first;
- SCM val = scm_make_continuation (&first);
-
- if (!first)
- return val;
- else
- {
- proc = eval (mx, env);
- args = scm_list_1 (val);
- goto apply_proc;
- }
- }
+ return scm_i_call_with_current_continuation (eval (mx, env));
case SCM_M_CALL_WITH_VALUES:
{