diff options
Diffstat (limited to 'regex.c')
-rw-r--r-- | regex.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -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 { |