TXR Lisp gets exception handling.

* eval.c (op_catch, expand_catch_clause,
expand_catch): New static functions.
(expand): Handle catch operator.
(eval_init): Added catch operator to op_table,
and registered new functions throw, throwf and error.

* txr.1: Documented catch operator and created
stub section for throw, throwf and error.

* txr.vim: Updated.

* unwind.c (uw_throwfv, uw_errorfv): New functions.

* unwind.h (uw_throwfv, uw_errorfv): Declared.

1 files changed, 2 insertions, 0 deletions

diff --git a/unwind.h b/unwind.h
index f9c69ad0..307c030f 100644
--- a/unwind.h
+++ b/unwind.h
@@ -95,7 +95,9 @@ val uw_block_return(val tag, val result);
 void uw_push_catch(uw_frame_t *, val matches);
 noreturn val uw_throw(val sym, val exception);
 noreturn val uw_throwf(val sym, val fmt, ...);
+noreturn val uw_throwfv(val sym, val fmt, val args);
 noreturn val uw_errorf(val fmt, ...);
+noreturn val uw_errorfv(val fmt, val args);
 val uw_register_subtype(val sub, val super);
 val uw_exception_subtype_p(val sub, val sup);
 void uw_continue(uw_frame_t *curr, uw_frame_t *target);