* lib.c (memql): New function.

(some_satisfy): Return the first non-nil result, rather than t.
(all_satisfy): Return the value of the last item, if all items
are processed.

* lib.h (memql): Declared.

* txr.1: Documented memq, memql, memqual, tree-find, some,
all, none, eq, eql and equal.

1 files changed, 1 insertions, 0 deletions

diff --git a/lib.h b/lib.h
index ba090269..4bef95a0 100644
--- a/lib.h
+++ b/lib.h
@@ -334,6 +334,7 @@ val appendv(val lists);
 val ldiff(val list1, val list2);
 val flatten(val list);
 val memq(val obj, val list);
+val memql(val obj, val list);
 val memqual(val obj, val list);
 val tree_find(val obj, val tree, val testfun);
 val some_satisfy(val list, val pred, val key);