From a82a0b4aa32dc54b5ee590e9b87e9ad635b12ecc Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sat, 14 Apr 2012 14:11:25 -0700 Subject: * eval.c (eval_init): New functions remove-if and keep-if. * lib.c (remove_if, keep_if): New functions. * lib.h (remove_if, keep_if): Declared. * txr.1: Documented. --- eval.c | 2 ++ 1 file changed, 2 insertions(+) (limited to 'eval.c') diff --git a/eval.c b/eval.c index 8133c6e5..aab58a61 100644 --- a/eval.c +++ b/eval.c @@ -2175,6 +2175,8 @@ void eval_init(void) reg_fun(intern(lit("remq"), user_package), func_n2(remq)); reg_fun(intern(lit("remql"), user_package), func_n2(remql)); 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("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