diff options
Diffstat (limited to 'libguile/eval.c')
-rw-r--r-- | libguile/eval.c | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/libguile/eval.c b/libguile/eval.c index 162fd54dc..ca0f731f9 100644 --- a/libguile/eval.c +++ b/libguile/eval.c @@ -265,20 +265,6 @@ eval (SCM x, SCM env) scm_define (CAR (mx), EVAL1 (CDR (mx), env)); return SCM_UNSPECIFIED; - case SCM_M_DYNWIND: - { - SCM in, out, res; - scm_i_thread *t = SCM_I_CURRENT_THREAD; - in = EVAL1 (CAR (mx), env); - out = EVAL1 (CDDR (mx), env); - scm_call_0 (in); - scm_dynstack_push_dynwind (&t->dynstack, in, out); - res = eval (CADR (mx), env); - scm_dynstack_pop (&t->dynstack); - scm_call_0 (out); - return res; - } - case SCM_M_WITH_FLUIDS: { long i, len; |