summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--parser.c6
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,