split-str gains ability to keep separating pieces.

* eval.c (eval_init): Register split-str to split_str_keep,
with optional argument.

* lib.c (split_str_keep): New function, formed from
split_str, with third argument.
(split_str): Reduced to wrapper around split_str_keep.
Thus we don't have to update umpteen existing calls
with an extra nil parameter.

* lib.h (split_str_keep): Declared.

* txr.1: Documented new optional argument of split-str.

1 files changed, 1 insertions, 1 deletions

diff --git a/eval.c b/eval.c
index 89af7232..66b33aa1 100644
--- a/eval.c
+++ b/eval.c
@@ -5233,7 +5233,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_n2(split_str));
+  reg_fun(intern(lit("split-str"), user_package), func_n3o(split_str_keep, 2));
   reg_fun(intern(lit("split-str-set"), user_package), func_n2(split_str_set));
   reg_fun(intern(lit("tok-str"), user_package), func_n3o(tok_str, 1));
   reg_fun(intern(lit("tok-where"), user_package), func_n2(tok_where));