diff options
Diffstat (limited to 'libguile/vm-engine.c')
-rw-r--r-- | libguile/vm-engine.c | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/libguile/vm-engine.c b/libguile/vm-engine.c index 97684d90b..2be9b46b3 100644 --- a/libguile/vm-engine.c +++ b/libguile/vm-engine.c @@ -72,7 +72,6 @@ vm_run (SCM vm, SCM program, SCM args) #if VM_USE_HOOKS SCM hook_args = SCM_LIST1 (vm); #endif - struct vm_unwind_data wind_data; #ifdef HAVE_LABELS_AS_VALUES static void **jump_table = NULL; @@ -92,19 +91,6 @@ vm_run (SCM vm, SCM program, SCM args) } #endif - /* dynwind ended in the halt instruction */ - scm_dynwind_begin (SCM_F_DYNWIND_REWINDABLE); - wind_data.vp = vp; - wind_data.sp = vp->sp; - wind_data.fp = vp->fp; - scm_dynwind_unwind_handler (vm_reset_stack, &wind_data, 0); - - /* could do this if we reified all vm stacks -- for now, don't bother changing - *the-vm* - if (scm_fluid_ref (scm_the_vm_fluid) != vm) - scm_dynwind_fluid (scm_the_vm_fluid, vm); - */ - /* Initialization */ { SCM prog = program; |