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.

1 files changed, 3 insertions, 0 deletions

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);