New function: partition-if.

* eval.c (eval_init): Register partition-if intrinsic.

* lib.c (partition_if_countdown_funv, partition_if_func): New
functions.
(partition_if): New function.

* lib.h (partition_if): Declared.

* tests/012/seq.tl: New test cases.

* txr.1: Documented.

* stdlib/doc-syms.tl: Updated.

1 files changed, 1 insertions, 0 deletions

diff --git a/lib.h b/lib.h
index 817e8d87..0bc7013e 100644
--- a/lib.h
+++ b/lib.h
@@ -688,6 +688,7 @@ val lazy_flatcar(val tree);
 val tuples(val n, val seq, val fill);
 val tuples_star(val n, val seq, val fill);
 val partition_by(val func, val seq);
+val partition_if(val func, val seq, val count_in);
 val partition(val seq, val indices);
 val split(val seq, val indices);
 val partition_star(val seq, val indices);