tok-str: takes count argument.

* eval.c (eval_init): Update registration of tok-str.

* lib.c (tok_str): New argument, count_opt. Implemented
in the compat 155 case; what the heck.
(tok): Pass nil to new parameter of tok_str.

* lib.h (tok_str): Declaration updated.

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

* txr.1: Documented.

1 files changed, 1 insertions, 1 deletions

diff --git a/lib.h b/lib.h
index 5363f47b..585a2c05 100644
--- a/lib.h
+++ b/lib.h
@@ -929,7 +929,7 @@ val split_str_keep(val str, val sep, val keep_sep_opt, val count_opt);
 val spl(val sep, val arg1, val arg2);
 val split_str_set(val str, val set);
 val sspl(val set, val str);
-val tok_str(val str, val tok_regex, val keep_sep);
+val tok_str(val str, val tok_regex, val keep_sep_opt, val count_opt);
 val tok(val tok_regex, val arg1, val arg2);
 val tok_where(val str, val tok_regex);
 val list_str(val str);