* eval.c (me_ap): New static function.

(eval_init): Use new list_f instead of func_n0v(identity).
Register multi as intrinsic.  Register me_ap as ap macro.

* lib.c (list_f): New global variable.
(multi): New function.
(multi_sort): Use list_f in place of func_n0v(identity).
(obj_init): gc-protect and initialize list_f.

* lib.h (list_f, multi): Declared.

* txr.1: Documented multi and ap.

1 files changed, 2 insertions, 1 deletions

diff --git a/lib.h b/lib.h
index bd50a3da..3e792bd7 100644
--- a/lib.h
+++ b/lib.h
@@ -378,7 +378,7 @@ extern val null_string;
 extern val null_list; /* (nil) */
 
 extern val identity_f, equal_f, eql_f, eq_f, gt_f, lt_f, car_f, cdr_f, null_f;
-
+extern val list_f;
 
 extern const wchar_t *progname;
 extern val prog_string;
@@ -465,6 +465,7 @@ val count_if(val pred, val list, val key);
 val some_satisfy(val list, val pred, val key);
 val all_satisfy(val list, val pred, val key);
 val none_satisfy(val list, val pred, val key);
+val multi(val func, val lists);
 val eql(val left, val right);
 val equal(val left, val right);
 mem_t *chk_malloc(size_t size);