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/eval.c b/eval.c
index 34d73304..654fe8ae 100644
--- a/eval.c
+++ b/eval.c
@@ -4733,6 +4733,7 @@ void eval_init(void)
   reg_fun(intern(lit("partition-by"), user_package), func_n2(partition_by));
   reg_fun(intern(lit("partition"), user_package), func_n2(partition));
   reg_fun(intern(lit("split"), user_package), func_n2(split));
+  reg_fun(intern(lit("split*"), user_package), func_n2(split_star));
   reg_fun(intern(lit("partition*"), user_package), func_n2(partition_star));
   reg_fun(memq_s, func_n2(memq));
   reg_fun(memql_s, func_n2(memql));