abort on pre-boot throw without catch

* libguile/throw.c (pre_init_throw): Abort instead of exit in the error
  case.  Print out a message.

diff --git a/libguile/throw.c b/libguile/throw.c
index 5c25524..486228e 100644 (file)
--- a/libguile/throw.c
+++ b/libguile/throw.c
@@ -566,8 +566,10 @@ pre_init_throw (SCM k, SCM args)
     return scm_at_abort (sym_pre_init_catch_tag, scm_cons (k, args));
   else
     { 
+      fprintf (stderr, "Throw without catch before boot:\n");
       scm_handle_by_message_noexit (NULL, k, args);
-      exit (1);
+      fprintf (stderr, "Aborting.\n");
+      abort ();
       return SCM_BOOL_F; /* not reached */
     }
 }