From dd9f7f30e879123e57a32492c7c82d9d2b361678 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Wed, 29 Aug 2012 18:34:25 -0700 Subject: * eval.c (mapcarv): Changed to external linkage. * eval.h (mapcarv): Declaration added. (eval_init): New intrinsic multi-sort registered. * lib.c (multi_sort_less): New static function. (multi_sort): New function. * lib.h (multi_sort): Declared. * txr.1: stub section added. --- eval.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'eval.c') diff --git a/eval.c b/eval.c index fea2ed7a..853ddb87 100644 --- a/eval.c +++ b/eval.c @@ -1741,7 +1741,7 @@ val expand(val form) } } -static val mapcarv(val fun, val list_of_lists) +val mapcarv(val fun, val list_of_lists) { if (!cdr(list_of_lists)) { return mapcar(fun, car(list_of_lists)); @@ -2381,6 +2381,7 @@ void eval_init(void) reg_fun(intern(lit("merge"), user_package), func_n4o(merge, 2)); reg_fun(intern(lit("sort"), user_package), func_n3o(sort, 2)); reg_fun(intern(lit("find"), user_package), func_n4o(find, 2)); + reg_fun(intern(lit("multi-sort"), user_package), func_n2(multi_sort)); reg_fun(intern(lit("find-if"), user_package), func_n3o(find_if, 2)); reg_fun(intern(lit("set-diff"), user_package), func_n4o(set_diff, 2)); -- cgit v1.2.3