diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2017-03-12 14:56:05 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2017-03-12 14:56:05 -0700 |
commit | df45e73d23d6871ce0ca415e009bf1bd2a520804 (patch) | |
tree | d57e33be9dad2ee6f3ef598f49c5d093ae0c6f82 /eval.c | |
parent | 6b7c80ff724f4f8baec2fc0984c6178f75fd9bcd (diff) | |
download | txr-df45e73d23d6871ce0ca415e009bf1bd2a520804.tar.gz txr-df45e73d23d6871ce0ca415e009bf1bd2a520804.tar.bz2 txr-df45e73d23d6871ce0ca415e009bf1bd2a520804.zip |
New rmismatch function.
* eval.c (eval_init): Register rmismatch intrinsic.
* lib.c (rmismatch): New function.
* lib.h (rmismatch): Declared.
* txr.1: Documented
Diffstat (limited to 'eval.c')
-rw-r--r-- | eval.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -5753,6 +5753,7 @@ void eval_init(void) reg_fun(intern(lit("pos-max"), user_package), func_n3o(pos_max, 1)); reg_fun(intern(lit("pos-min"), user_package), func_n3o(pos_min, 1)); reg_fun(intern(lit("mismatch"), user_package), func_n4o(mismatch, 2)); + reg_fun(intern(lit("rmismatch"), user_package), func_n4o(rmismatch, 2)); reg_fun(intern(lit("take"), user_package), func_n2(take)); reg_fun(intern(lit("take-while"), user_package), func_n3o(take_while, 2)); reg_fun(intern(lit("take-until"), user_package), func_n3o(take_until, 2)); |