* regex.c (match_regex_right): New function.

* regex.h (match_regex_right): Declared.

* eval.c (eval_init): Register match_regex_right as instrinsic.

1 files changed, 1 insertions, 0 deletions

diff --git a/regex.h b/regex.h
index 0fce0bbc..1ea148bd 100644
--- a/regex.h
+++ b/regex.h
@@ -31,6 +31,7 @@ val regex_compile(val regex, val error_stream);
 val regexp(val);
 val search_regex(val haystack, val needle_regex, val start_num, val from_end);
 val match_regex(val str, val regex, val pos);
+val match_regex_right(val str, val regex, val pos);
 val regsub(val regex, val repl, val str);
 
 void regex_init(void);