diff options
Diffstat (limited to 'libguile/eval.c')
-rw-r--r-- | libguile/eval.c | 14 |
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: { |