New assert macro.

* eval.c (rt_assert_fail, me_assert): New static functions.
(eval_init): assert macro and sys:rt-assert-fail function
registered.

* lib.c (func_n4ov): New function.

* lib.h (func_n4ov): Declared.

* txr.1: Documented.

1 files changed, 7 insertions, 0 deletions

diff --git a/lib.c b/lib.c
index cf25d99e..99720212 100644
--- a/lib.c
+++ b/lib.c
@@ -6265,6 +6265,13 @@ val func_n3ov(val (*fun)(val, val, val, varg), int reqargs)
   return obj;
 }
 
+val func_n4ov(val (*fun)(val, val, val, val, varg), int reqargs)
+{
+  val obj = func_n4v(fun);
+  obj->f.optargs = 4 - reqargs;
+  return obj;
+}
+
 val func_interp(val env, val form)
 {
   val obj = make_obj();