summaryrefslogtreecommitdiffstats
path: root/unwind.c
diff options
context:
space:
mode:
Diffstat (limited to 'unwind.c')
-rw-r--r--unwind.c5
1 files changed, 5 insertions, 0 deletions
diff --git a/unwind.c b/unwind.c
index 76f9a47f..1365c7c2 100644
--- a/unwind.c
+++ b/unwind.c
@@ -215,6 +215,11 @@ val uw_throw(val sym, val exception)
}
if (ex == 0) {
+ if (std_error == 0) {
+ fprintf(stderr, "unhandled exception in early initialization\n");
+ abort();
+ }
+
if (opt_loglevel >= 1) {
val s = stringp(exception);
format(std_error, lit("~a: unhandled exception of type ~a:\n"),