* unwind.c (unhandled_hook_s): New static variable.

(uw_throw): In the unhandled case, check if *unhandled-hook* variable
has a function, and use it instead of the default logic. If it's not a
function, abort with an error message. Clear it so that if the hook
function re-enters this code, it will not be used. Always exit now on
unhandled exceptions; do not abort.
(uw_late_init): New function.

* unwind.h (uw_late_init): Declared.

* lib.c (init): Call uw_late_init.

* txr.1: Documented *unhandled-hook*.

* genvim.txr: Scan the unwind.c file, since it has a reg_var now.

* tl.vim, txr.vim: Updated.

1 files changed, 2 insertions, 1 deletions

diff --git a/genvim.txr b/genvim.txr
index 7bd1e3d7..df4006c6 100644
--- a/genvim.txr
+++ b/genvim.txr
@@ -8,7 +8,8 @@ static void dir_tables_init(void)
 }
 @(end)
 @(next @(open-files '("eval.c" "rand.c" "signal.c" "stream.c" "gc.c" "glob.c"
-                      "syslog.c" "filter.c" "txr.c" "arith.c" "sysif.c")))
+                      "syslog.c" "filter.c" "txr.c" "arith.c" "unwind.c"
+                      "sysif.c")))
 @(collect)
 @  (block)
 @    (cases)