* lib.c (assert_s): New global variable.

(obj_init): Intern assert symbol, store in assert_s.

* lib.h (assert_s): Declared.

* match.c (typed_error, v_assert, h_assert): New static functions.
(dir_tables_init): Register v_assert and h_assert.
Register assert_s as non-data-matching directive.

* unwind.c (uw_init): Register assert as a subtype
of error.

* txr.1: Describe assert.

1 files changed, 1 insertions, 0 deletions

diff --git a/unwind.c b/unwind.c
index fc703fc3..8c2fb676 100644
--- a/unwind.c
+++ b/unwind.c
@@ -432,4 +432,5 @@ void uw_init(void)
   uw_register_subtype(query_error_s, error_s);
   uw_register_subtype(file_error_s, error_s);
   uw_register_subtype(process_error_s, error_s);
+  uw_register_subtype(assert_s, error_s);
 }