summaryrefslogtreecommitdiff
path: root/libguile/throw.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/throw.c')
-rw-r--r--libguile/throw.c2
1 files changed, 2 insertions, 0 deletions
diff --git a/libguile/throw.c b/libguile/throw.c
index f1f854015..e0149dfef 100644
--- a/libguile/throw.c
+++ b/libguile/throw.c
@@ -88,6 +88,7 @@ catch (SCM tag, SCM thunk, SCM handler, SCM pre_unwind_handler)
jmp_buf registers;
jmp_buf *prev_registers;
ptrdiff_t saved_stack_depth;
+ uint8_t *mra = NULL;
if (!scm_is_eq (tag, SCM_BOOL_T) && !scm_is_symbol (tag))
scm_wrong_type_arg ("catch", 1, tag);
@@ -119,6 +120,7 @@ catch (SCM tag, SCM thunk, SCM handler, SCM pre_unwind_handler)
t->vm.stack_top - t->vm.fp,
saved_stack_depth,
t->vm.ip,
+ mra,
&registers);
scm_dynstack_push_fluid (dynstack, exception_handler_fluid, eh,
dynamic_state);