* eval.c (eval_init): Register member and member_if as intrinsics.

* lib.c (member, member_if): New functions.

* lib.h (member, member_if): Declared.

* txr.1: Documented.

* txr.vim: Regenerated.

1 files changed, 2 insertions, 0 deletions

diff --git a/lib.h b/lib.h
index 1f25f623..bd50a3da 100644
--- a/lib.h
+++ b/lib.h
@@ -445,6 +445,8 @@ val tuples(val n, val seq, val fill);
 val memq(val obj, val list);
 val memql(val obj, val list);
 val memqual(val obj, val list);
+val member(val item, val list, val testfun, val keyfun);
+val member_if(val pred, val list, val key);
 val remq(val obj, val list);
 val remql(val obj, val list);
 val remqual(val obj, val list);