diff options
Diffstat (limited to 'libguile/vm-i-system.c')
-rw-r--r-- | libguile/vm-i-system.c | 14 |
1 files changed, 3 insertions, 11 deletions
diff --git a/libguile/vm-i-system.c b/libguile/vm-i-system.c index f30ed9d02..2fce8346d 100644 --- a/libguile/vm-i-system.c +++ b/libguile/vm-i-system.c @@ -1616,17 +1616,9 @@ VM_DEFINE_INSTRUCTION (86, wind, "wind", 0, 2, 0) SYNC_REGISTER (); /* Push wind and unwind procedures onto the dynamic stack. Note that neither are actually called; the compiler should emit calls to wind and unwind for - the normal dynamic-wind control flow. */ - if (SCM_UNLIKELY (scm_is_false (scm_thunk_p (wind)))) - { - finish_args = wind; - goto vm_error_not_a_thunk; - } - if (SCM_UNLIKELY (scm_is_false (scm_thunk_p (unwind)))) - { - finish_args = unwind; - goto vm_error_not_a_thunk; - } + the normal dynamic-wind control flow. Also note that the compiler + should have inserted checks that they wind and unwind procs are + thunks, if it could not prove that to be the case. */ scm_dynstack_push_dynwind (¤t_thread->dynstack, wind, unwind); NEXT; } |