New contains function: near alias of search.

Harmonizes with starts-with and ends-with.

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

* lib.c (contains): New function.

* lib.h (contains): Delared.

* txr.1: Documented.

1 files changed, 1 insertions, 0 deletions

diff --git a/lib.h b/lib.h
index 6c5b17ef..115b11d2 100644
--- a/lib.h
+++ b/lib.h
@@ -1155,6 +1155,7 @@ val butlast(val seq, val idx);
 val replace(val seq, val items, val from, val to);
 val update(val seq, val fun);
 val search(val seq, val key, val from, val to);
+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);