From 501f5a9e01b9b27e9b2199691c122cb30b956508 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Tue, 12 Sep 2017 21:28:59 -0700 Subject: regex: retain unoptimized form for printing. regex.c (regex_compile): Take the source code to be the original code, rather than the version with AST-level optimizations and expansions related to the nongreedy operator. --- regex.c | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/regex.c b/regex.c index 31076795..61f4b5e9 100644 --- a/regex.c +++ b/regex.c @@ -2201,7 +2201,7 @@ static val regex_requires_dv(val exp) val regex_compile(val regex_sexp, val error_stream) { - val regex_source; + val regex_source = regex_sexp; if (stringp(regex_sexp)) { regex_sexp = regex_parse(regex_sexp, default_null_arg(error_stream)); @@ -2210,10 +2210,6 @@ val regex_compile(val regex_sexp, val error_stream) regex_sexp = reg_optimize(reg_expand_nongreedy(reg_nary_to_bin(regex_sexp))); - regex_source = if3(stringp(regex_sexp), - cons(compound_s, cons(regex_sexp, nil)), - regex_sexp); - if (opt_derivative_regex || regex_requires_dv(regex_sexp)) { regex_t *regex = coerce(regex_t *, chk_malloc(sizeof *regex)); val ret; -- cgit v1.2.3