diff --git a/collects/tests/mzscheme/rx.ss b/collects/tests/mzscheme/rx.ss index 8778951251..62a32cf8b2 100644 --- a/collects/tests/mzscheme/rx.ss +++ b/collects/tests/mzscheme/rx.ss @@ -1658,8 +1658,6 @@ ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Check that rx doesn't parse as px: -(test '(#"") regexp-match #px#"\\$" #"a$b") -(test '(#"$") regexp-match #rx#"\\$" #"a$b") (test '(#"aa" #"a") regexp-match #px#"(a)\\1" #"aa") (test '(#"a1" #"a") regexp-match #rx#"(a)\\1" #"a1") (test '(#"a") regexp-match #px#"\\w" #"aw") diff --git a/src/mzscheme/src/regexp.c b/src/mzscheme/src/regexp.c index 795efc0d09..593a9b1cd6 100644 --- a/src/mzscheme/src/regexp.c +++ b/src/mzscheme/src/regexp.c @@ -1263,11 +1263,7 @@ regatom(int *flagp, int parse_flags, int at_start) if (regparse == regparse_end) FAIL("trailing backslash in pattern"); c = regparsestr[regparse++]; - if ((c == '$') && (parse_flags & PARSE_PCRE)) { - ret = regnode(NOTHING); - regmatchmin = regmatchmax = 0; - *flagp |= SIMPLE|SPNOTHING; - } else if ((parse_flags & PARSE_PCRE) && (c == 'b')) { + if ((parse_flags & PARSE_PCRE) && (c == 'b')) { ret = regnode(WORDBOUND); regmatchmin = regmatchmax = 0; if (!regmaxlookback)