* 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, 1 deletions

diff --git a/lib.h b/lib.h
index e62eec93..ab519088 100644
--- a/lib.h
+++ b/lib.h
@@ -337,7 +337,7 @@ extern val define_s, output_s, single_s, first_s, last_s, empty_s;
 extern val repeat_s, rep_s, flatten_s, forget_s;
 extern val local_s, merge_s, bind_s, rebind_s, cat_s;
 extern val try_s, catch_s, finally_s, throw_s, defex_s, deffilter_s;
-extern val eof_s, eol_s;
+extern val eof_s, eol_s, assert_s;
 extern val error_s, type_error_s, internal_error_s;
 extern val numeric_error_s, range_error_s;
 extern val query_error_s, file_error_s, process_error_s;