summaryrefslogtreecommitdiff
path: root/libguile/throw.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/throw.c')
-rw-r--r--libguile/throw.c4
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,
&registers);