From 1a18561313f4a66e5e454b48c08be160d9fe6c18 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Mon, 7 Aug 2017 12:36:57 -0700 Subject: tok-str requires two arguments, not just one. * eval.c (eval_init): Fix incorrect registration of tok-str. --- eval.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)); -- cgit v1.2.3