summaryrefslogtreecommitdiffstats
path: root/unwind.c
diff options
context:
space:
mode:
Diffstat (limited to 'unwind.c')
-rw-r--r--unwind.c3
1 files changed, 3 insertions, 0 deletions
diff --git a/unwind.c b/unwind.c
index 3cb47a9a..13089c3c 100644
--- a/unwind.c
+++ b/unwind.c
@@ -120,6 +120,8 @@ static void uw_unwind_to_exit_point(void)
val sym = unhandled_ex.ca.sym;
val args = unhandled_ex.ca.args;
+ gc_stack_limit = 0;
+
dyn_env = nil;
if (opt_loglevel >= 1) {
@@ -1256,6 +1258,7 @@ void uw_init(void)
uw_register_subtype(process_error_s, error_s);
uw_register_subtype(system_error_s, error_s);
uw_register_subtype(alloc_error_s, error_s);
+ uw_register_subtype(stack_overflow_s, error_s);
uw_register_subtype(timeout_error_s, error_s);
uw_register_subtype(assert_s, error_s);
uw_register_subtype(syntax_error_s, error_s);