split-str: new count parameter.

* eval.c (eval_init): Fix up registration of split-str to
account for new parameter.

* lib.c (split_str_keep): Implement new optional count
argument.
(spl): Pass nil value to split_str_keep for new argument.
I'd like this function to benefit from this argument also,
but the design isn't settled.
(split_str): Pass nil argument to split_str_keep.

* lib.h (split_str_keep): Declaration updated.

* tests/015/split.tl: New tests.

* txr.1: Documented.

1 files changed, 1 insertions, 1 deletions

diff --git a/eval.c b/eval.c
index b8a611d2..5eb22fd0 100644
--- a/eval.c
+++ b/eval.c
@@ -7217,7 +7217,7 @@ void eval_init(void)
   reg_fun(intern(lit("sub-str"), user_package), func_n3o(sub_str, 1));
   reg_fun(intern(lit("replace-str"), user_package), func_n4o(replace_str, 2));
   reg_fun(intern(lit("cat-str"), user_package), func_n2o(cat_str, 1));
-  reg_fun(intern(lit("split-str"), user_package), func_n3o(split_str_keep, 2));
+  reg_fun(intern(lit("split-str"), user_package), func_n4o(split_str_keep, 2));
   reg_fun(intern(lit("spl"), user_package), func_n3o(spl, 2));
   reg_fun(intern(lit("split-str-set"), user_package), func_n2(split_str_set));
   reg_fun(intern(lit("sspl"), user_package), func_n2(sspl));