* eval.c (eval_init): New functions countqual, countql, countq

and count_if registered as intrinsics.

* lib.c (countqual, countql, countq, count_if): New functions.

* lib.h (countqual, countql, countq, count_if): Declared.

* txr.1: New functions documented.

1 files changed, 4 insertions, 0 deletions

diff --git a/lib.h b/lib.h
index c4a7f2df..5dee93b4 100644
--- a/lib.h
+++ b/lib.h
@@ -398,6 +398,10 @@ val remqual_lazy(val obj, val list);
 val remove_if_lazy(val pred, val list, val key);
 val keep_if_lazy(val pred, val list, val key);
 val tree_find(val obj, val tree, val testfun);
+val countqual(val obj, val list);
+val countql(val obj, val list);
+val countq(val obj, val list);
+val count_if(val pred, val list, val key);
 val some_satisfy(val list, val pred, val key);
 val all_satisfy(val list, val pred, val key);
 val none_satisfy(val list, val pred, val key);