From 20a737a17009582fd3022fb2f67e4b472445bc4f Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sun, 15 Apr 2012 15:15:23 -0700 Subject: * eval.c (eval_init): New intrinsic functions remq*, remql*, remqual*, remove-if*, keep-if*. * lib.c (rem_lazy_func, rem_lazy_rec): New static functions. (remq_lazy, remql_lazy, remqual_lazy, remove_if_lazy, keep_if_lazy): New functions. * lib.h (remq_lazy, remql_lazy, remqual_lazy, remove_if_lazy, keep_if_lazy): Declared. * txr.1: New functions documented. --- eval.c | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'eval.c') diff --git a/eval.c b/eval.c index 3cacebb5..9caec011 100644 --- a/eval.c +++ b/eval.c @@ -2177,6 +2177,11 @@ void eval_init(void) reg_fun(intern(lit("remqual"), user_package), func_n2(remqual)); reg_fun(intern(lit("remove-if"), user_package), func_n3o(remove_if, 2)); reg_fun(intern(lit("keep-if"), user_package), func_n3o(keep_if, 2)); + reg_fun(intern(lit("remq*"), user_package), func_n2(remq_lazy)); + reg_fun(intern(lit("remql*"), user_package), func_n2(remql_lazy)); + reg_fun(intern(lit("remqual*"), user_package), func_n2(remqual_lazy)); + reg_fun(intern(lit("remove-if*"), user_package), func_n3o(remove_if_lazy, 2)); + reg_fun(intern(lit("keep-if*"), user_package), func_n3o(keep_if_lazy, 2)); reg_fun(intern(lit("tree-find"), user_package), func_n3o(tree_find, 2)); reg_fun(intern(lit("some"), user_package), func_n3o(some_satisfy, 2)); reg_fun(intern(lit("all"), user_package), func_n3o(all_satisfy, 2)); -- cgit v1.2.3