summaryrefslogtreecommitdiffstats
path: root/eval.c
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2014-01-26 23:42:20 -0800
committerKaz Kylheku <kaz@kylheku.com>2014-01-26 23:42:20 -0800
commitc150e646fa90409c412f07f59edbb897bdbb4997 (patch)
treeb4c4cfb5a2a95d57f7049e97574bbcec8b3b70f5 /eval.c
parenteee670172cca986245006e1c9a4f32f7d0b60895 (diff)
downloadtxr-c150e646fa90409c412f07f59edbb897bdbb4997.tar.gz
txr-c150e646fa90409c412f07f59edbb897bdbb4997.tar.bz2
txr-c150e646fa90409c412f07f59edbb897bdbb4997.zip
* regex.c (match_regex_right): New function.
* regex.h (match_regex_right): Declared. * eval.c (eval_init): Register match_regex_right as instrinsic.
Diffstat (limited to 'eval.c')
-rw-r--r--eval.c2
1 files changed, 2 insertions, 0 deletions
diff --git a/eval.c b/eval.c
index 7de6de77..9e965d54 100644
--- a/eval.c
+++ b/eval.c
@@ -2438,6 +2438,8 @@ void eval_init(void)
reg_fun(intern(lit("regexp"), user_package), func_n1(regexp));
reg_fun(intern(lit("search-regex"), user_package), func_n4o(search_regex, 2));
reg_fun(intern(lit("match-regex"), user_package), func_n3o(match_regex, 2));
+ reg_fun(intern(lit("match-regex-right"), user_package),
+ func_n3o(match_regex_right, 2));
reg_fun(intern(lit("regsub"), user_package), func_n3(regsub));
reg_fun(intern(lit("regex-parse"), user_package), func_n2o(regex_parse, 1));