From a3c8effa1337c16e9c7832bf1fb4e66f72e5c3c8 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Thu, 15 Sep 2016 06:39:11 -0700 Subject: New keepq, keepql and keepqual functions. * eval.c (eval_init): Register keepq, keepql and keepqual intrinsic functions. * lib.c (keepq, keepql, keepqual): New functions. * lib.h (keepq, keepql, keepqual): Declared. --- eval.c | 3 +++ 1 file changed, 3 insertions(+) (limited to 'eval.c') diff --git a/eval.c b/eval.c index 3f4f606b..a1809aca 100644 --- a/eval.c +++ b/eval.c @@ -5025,6 +5025,9 @@ void eval_init(void) 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("keepq"), user_package), func_n3o(keepq, 2)); + reg_fun(intern(lit("keepql"), user_package), func_n3o(keepql, 2)); + reg_fun(intern(lit("keepqual"), user_package), func_n3o(keepqual, 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)); -- cgit v1.2.3