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. --- lib.h | 3 +++ 1 file changed, 3 insertions(+) (limited to 'lib.h') diff --git a/lib.h b/lib.h index 0785639f..f17def75 100644 --- a/lib.h +++ b/lib.h @@ -554,6 +554,9 @@ val remq(val obj, val list); val remql(val obj, val list); val remqual(val obj, val list); val remove_if(val pred, val list, val key); +val keepq(val obj, val list_orig, val key); +val keepql(val obj, val list_orig, val key); +val keepqual(val obj, val list_orig, val key); val keep_if(val pred, val list, val key); val remq_lazy(val obj, val list); val remql_lazy(val obj, val list); -- cgit v1.2.3