New function: reject.

* eval.c (eva_init): Register reject intrinsic.

* lib.c (appendl): New static function.
(reject): New function.

* lib.h (reject): Declared.

* txr.1: Documented.

1 files changed, 1 insertions, 0 deletions

diff --git a/lib.h b/lib.h
index e74ed15f..c6f90a58 100644
--- a/lib.h
+++ b/lib.h
@@ -1185,6 +1185,7 @@ val contains(val key, val seq, val testfun, val keyfun);
 val rsearch(val seq, val key, val from, val to);
 val where(val func, val seq);
 val sel(val seq, val where);
+val reject(val seq, val where);
 val relate(val domain_seq, val range_seq, val dfl_val);
 val rcons(val from, val to);
 val rangep(val obj);