diff options
Diffstat (limited to 'libguile/throw.c')
-rw-r--r-- | libguile/throw.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/throw.c b/libguile/throw.c index bd7a98440..e68f428a8 100644 --- a/libguile/throw.c +++ b/libguile/throw.c @@ -477,8 +477,8 @@ pre_init_catch (SCM tag, SCM thunk, SCM handler, SCM pre_unwind_handler) SCM_F_DYNSTACK_PROMPT_ESCAPE_ONLY | SCM_F_DYNSTACK_PROMPT_PUSH_NARGS, sym_pre_init_catch_tag, - SCM_VM_DATA (vm)->fp, - SCM_VM_DATA (vm)->sp, + SCM_VM_DATA (vm)->fp - SCM_VM_DATA (vm)->stack_base, + SCM_VM_DATA (vm)->sp - SCM_VM_DATA (vm)->stack_base, SCM_VM_DATA (vm)->ip, ®isters); |