New functions keep-keys-if, separate-keys.

* lib.[ch] (keep_keys_if, separate_keys): New functions.

* eval.c (eval_init): keep-keys-if, separate-keys intrinsics
registered.

* txr.1: Documented.

* stdlib/doc-syms.tl: Updated.

1 files changed, 2 insertions, 0 deletions

diff --git a/lib.h b/lib.h
index 8448db55..1046092f 100644
--- a/lib.h
+++ b/lib.h
@@ -847,7 +847,9 @@ val keepq(val obj, val seq, val keyfun);
 val keepql(val obj, val seq, val keyfun);
 val keepqual(val obj, val seq, val keyfun);
 val keep_if(val pred, val seq, val keyfun);
+val keep_keys_if(val pred, val seq_in, val keyfun_in);
 val separate(val pred, val seq, val keyfun);
+val separate_keys(val pred, val seq_in, val keyfun_in);
 val remq_lazy(val obj, val list);
 val remql_lazy(val obj, val list);
 val remqual_lazy(val obj, val list);