New function, split*.

* eval.c (eval_init): Register split*.

* lib.c (split_star_func): New static function.
(partition_split_common): Take pointer-to-function argument
instead of boolean. Hoist this C function into the lazy cons.
(partition): Pass pointer to partition_func ito
partition_split_common, intsead of a flag requesting the use
of partition_func.
(split): Pass apointer to split_func into
partition_split_common.
(split_star): New function.

* lib.h (split_star): Declared.

* txr.1: Documented split*.

1 files changed, 1 insertions, 0 deletions

diff --git a/lib.h b/lib.h
index c07bc863..8b2b700d 100644
--- a/lib.h
+++ b/lib.h
@@ -530,6 +530,7 @@ val partition_by(val func, val seq);
 val partition(val seq, val indices);
 val split(val seq, val indices);
 val partition_star(val seq, val indices);
+val split_star(val seq, val indices);
 val memq(val obj, val list);
 val memql(val obj, val list);
 val memqual(val obj, val list);