summaryrefslogtreecommitdiffstats
path: root/regex.c
diff options
context:
space:
mode:
Diffstat (limited to 'regex.c')
-rw-r--r--regex.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/regex.c b/regex.c
index c589b0ca..fb22649f 100644
--- a/regex.c
+++ b/regex.c
@@ -1613,11 +1613,11 @@ static val regex_requires_dv(val exp)
}
}
-val regex_compile(val regex_sexp)
+val regex_compile(val regex_sexp, val error_stream)
{
if (stringp(regex_sexp)) {
- regex_sexp = regex_parse(regex_sexp, nil);
- return if2(regex_sexp, regex_compile(regex_sexp));
+ regex_sexp = regex_parse(regex_sexp, error_stream);
+ return if2(regex_sexp, regex_compile(regex_sexp, error_stream));
} else if (opt_derivative_regex || regex_requires_dv(regex_sexp)) {
return cons(compiled_regex_s, cons(dv_compile_regex(regex_sexp), nil));
} else {