diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2013-05-20 08:36:10 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2013-05-20 08:36:10 -0700 |
| commit | aa5aed38f16aa15dc3c3d2fe4547fb86e26cd6e6 (patch) | |
| tree | 65cba72084061c9ec1ea861c042fd24426f7fdb8 /eval.c | |
| parent | 0641abc494c3588d9201d354c92bc6901aa2ef5a (diff) | |
| download | txr-aa5aed38f16aa15dc3c3d2fe4547fb86e26cd6e6.tar.gz txr-aa5aed38f16aa15dc3c3d2fe4547fb86e26cd6e6.tar.bz2 txr-aa5aed38f16aa15dc3c3d2fe4547fb86e26cd6e6.zip | |
* eval.c (eval_init): Register tok_str as intrinsic.
* lib.c (tok_str): New function.
* lib.h (tok_str): Declared.
* txr.1: Documented.
Diffstat (limited to 'eval.c')
| -rw-r--r-- | eval.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -2368,6 +2368,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_n2(split_str)); reg_fun(intern(lit("split-str-set"), user_package), func_n2(split_str_set)); + reg_fun(intern(lit("tok-str"), user_package), func_n2(tok_str)); reg_fun(intern(lit("list-str"), user_package), func_n1(list_str)); reg_fun(intern(lit("trim-str"), user_package), func_n1(trim_str)); reg_fun(intern(lit("string-lt"), user_package), func_n2(string_lt)); |