From f43255b08af93a0ef6ce855c74a02c001cf7d8db Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Fri, 23 Dec 2011 12:46:05 -0800 Subject: * 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. --- lib.h | 1 + 1 file changed, 1 insertion(+) (limited to 'lib.h') 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); -- cgit v1.2.3