From c150e646fa90409c412f07f59edbb897bdbb4997 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sun, 26 Jan 2014 23:42:20 -0800 Subject: * regex.c (match_regex_right): New function. * regex.h (match_regex_right): Declared. * eval.c (eval_init): Register match_regex_right as instrinsic. --- eval.c | 2 ++ 1 file changed, 2 insertions(+) (limited to 'eval.c') 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)); -- cgit v1.2.3