Regex syntax errors trigger exception.

* parser.c (regex_parse): Don't return nil if there
were errors; throw a syntax-error exception.

1 files changed, 5 insertions, 1 deletions

diff --git a/parser.c b/parser.c
index 865dee7b..f5edfbed 100644
--- a/parser.c
+++ b/parser.c
@@ -281,7 +281,11 @@ val regex_parse(val string, val error_stream)
 
   parser_cleanup(&parser);
   std_error = save_stream;
-  return parser.errors ? nil : parser.syntax_tree;
+
+  if (parser.errors)
+    uw_throw(syntax_error_s, lit("regex-parse: syntax errors in regex"));
+
+  return parser.syntax_tree;
 }
 
 static val lisp_parse_impl(val interactive, val source_in, val error_stream,