New funtion related to where function.

* eval.c (eval_init): register intrinsics wheref, whereq,
whereql and wherequal.

* lib.c (wheref_fun): New static function.
(wheref, whereq, whereql, wherequal): New functions.

* lib.h (wheref, whereq, whereql, wherequal): Declared.

* tests/012/seq.tl: New tests.

* txr.1: Documented.

1 files changed, 4 insertions, 0 deletions

diff --git a/lib.h b/lib.h
index f83d59b0..5cb52990 100644
--- a/lib.h
+++ b/lib.h
@@ -1453,6 +1453,10 @@ val contains(val key, val seq, val testfun, val keyfun);
 val rsearch(val seq, val key, val from, val to);
 val search_all(val seq, val key, val testfun, val keyfun);
 val where(val func, val seq);
+val wheref(val func);
+val whereq(val obj);
+val whereql(val obj);
+val wherequal(val obj);
 val sel(val seq, val where);
 val reject(val seq, val where);
 val relate(val domain_seq, val range_seq, val dfl_val);