New function: count.

The general count function, with keyfun and testfun,
is noticeably absent. Let's implement it.

* lib.[ch] (count): New function.

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

* tests/012/seq.tl: Some tests for count.

* txr.1: Add count to count-if section. Revise documentation
based on pos/pos-if.

* stdlib/doc-syms.tl: Updated.

1 files changed, 1 insertions, 0 deletions

diff --git a/lib.h b/lib.h
index 89f17f52..4eab1198 100644
--- a/lib.h
+++ b/lib.h
@@ -724,6 +724,7 @@ 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 count(val item, val seq, val testfun_in, val keyfun_in);
 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);