* unwind.c (uw_throw): If streams are not initialized,

we have an unhandled exception too early in initialization.
Use C stream to print an error message and abort.
Using the nil stream variable will just cause a recursion bomb.

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"),