* regex.c (match_regex_right): Fix not returning value.

2 files changed, 6 insertions, 0 deletions

diff --git a/ChangeLog b/ChangeLog
index 903c1045..07b189d3 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 2014-01-29  Kaz Kylheku  <kaz@kylheku.com>
 
+	* regex.c (match_regex_right): Fix not returning value.
+
+2014-01-29  Kaz Kylheku  <kaz@kylheku.com>
+
 	Default argument initializer scoping rule change, allowing
 	things like (defun foo (s : (l (length s))) ...).
 	Default arguments can be initialized by expressions that
diff --git a/regex.c b/regex.c
index 090846b1..7632faee 100644
--- a/regex.c
+++ b/regex.c
@@ -1873,6 +1873,8 @@ val match_regex_right(val str, val regex, val end)
 
     pos = plus(pos, one);
   }
+
+  return nil;
 }
 
 val regsub(val regex, val repl, val str)