New function keep: generalized keepqual.

* eval.c (eval_init): Register keep intrinsic.

* lib.[ch] (keep): New function.

* stdlib/compiler.tl (compiler comp-fun-form): Transform
two argument keep to keepqual.

* txr.1: Documented.

1 files changed, 1 insertions, 0 deletions

diff --git a/lib.h b/lib.h
index 977fbddf..848a8303 100644
--- a/lib.h
+++ b/lib.h
@@ -896,6 +896,7 @@ 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_in, val mapfun_in);
 val keep_keys_if(val pred, val seq_in, val keyfun_in, val mapfun_in);
+val keep(val obj, val seq, val testfun_in, val keyfun_in, val mapfun_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);