diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2017-08-07 12:36:57 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2017-08-07 12:36:57 -0700 |
| commit | 1a18561313f4a66e5e454b48c08be160d9fe6c18 (patch) | |
| tree | 08d8a7ff79c2f8d217fef806ec7ba3ddbc966564 /eval.c | |
| parent | 2e0acd6057bd65b0b872356c51c1b7b1a06c89b9 (diff) | |
| download | txr-1a18561313f4a66e5e454b48c08be160d9fe6c18.tar.gz txr-1a18561313f4a66e5e454b48c08be160d9fe6c18.tar.bz2 txr-1a18561313f4a66e5e454b48c08be160d9fe6c18.zip | |
tok-str requires two arguments, not just one.
* eval.c (eval_init): Fix incorrect registration of tok-str.
Diffstat (limited to 'eval.c')
| -rw-r--r-- | eval.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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)); |