diff options
Diffstat (limited to 'libguile/vm-engine.c')
-rw-r--r-- | libguile/vm-engine.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/vm-engine.c b/libguile/vm-engine.c index 87d2a784b..ad6ec6297 100644 --- a/libguile/vm-engine.c +++ b/libguile/vm-engine.c @@ -2050,8 +2050,8 @@ VM_NAME (SCM vm, SCM program, SCM *argv, size_t nargs_) flags = escape_only_p ? SCM_F_DYNSTACK_PROMPT_ESCAPE_ONLY : 0; scm_dynstack_push_prompt (¤t_thread->dynstack, flags, LOCAL_REF (tag), - fp, - LOCAL_ADDRESS (proc_slot), + fp - vp->stack_base, + LOCAL_ADDRESS (proc_slot) - vp->stack_base, ip + offset, ®isters); NEXT (3); |