From 96ca2e8a7799a2b820e6e3e6727f3fe15d56c061 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Thu, 21 Apr 2016 06:49:01 -0700 Subject: Regex syntax errors trigger exception. * parser.c (regex_parse): Don't return nil if there were errors; throw a syntax-error exception. --- parser.c | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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, -- cgit v1.2.3