tok-str requires two arguments, not just one.

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

1 files changed, 1 insertions, 1 deletions

diff --git a/eval.c b/eval.c
index 00e65163..1c6d6642 100644
--- a/eval.c
+++ b/eval.c
@@ -6033,7 +6033,7 @@ void eval_init(void)
   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-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-str"), user_package), func_n3o(tok_str, 2));
   reg_fun(intern(lit("tok-where"), user_package), func_n2(tok_where));
   reg_fun(intern(lit("list-str"), user_package), func_n1(list_str));
   reg_fun(intern(lit("trim-str"), user_package), func_n1(trim_str));