From b240bd0a3aa90e47716b1fba5936b44c7bfd257c Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 14 Sep 2006 06:21:12 +0000 Subject: [PATCH] corrected conditional syntax svn: r4333 --- collects/tests/mzscheme/rx.ss | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) diff --git a/collects/tests/mzscheme/rx.ss b/collects/tests/mzscheme/rx.ss index 5ca6193735..6dc07d9614 100644 --- a/collects/tests/mzscheme/rx.ss +++ b/collects/tests/mzscheme/rx.ss @@ -1491,18 +1491,19 @@ (#"(?m:^a$[^a]^b$[^a]^c$)" #"a\nb\nc" (#"a\nb\nc")) #"(?())" #"(?(a))" - #"(?(\\1))" - #"(?(\\1)a|b|c)" + #"(a)(?(\\1))" + #"(?(1))" + #"(?(1)a|b|c)" #"(?(?=x)a|b|c)" #"(?(?=x)a" #"(?(?=x)a|b" #"(?(?=x)a|b|" - (#"(a)?(?(\\1)12|b12)" #"a12" (#"a12" #"a")) - (#"(a)?(?(\\1)12|b12)" #"b12" (#"b12" #f)) - (#"(a)?(?(\\1)12|b12)" #"b13" #f) - (#"(a)?(?(\\1)|b12)" #"a12" (#"a" #"a")) - (#"(a)?(?(\\1)12)" #"a12" (#"a12" #"a")) - (#"(a)?(?(\\1)12)" #"b12" (#"" #f)) + (#"(a)?(?(1)12|b12)" #"a12" (#"a12" #"a")) + (#"(a)?(?(1)12|b12)" #"b12" (#"b12" #f)) + (#"(a)?(?(1)12|b12)" #"b13" #f) + (#"(a)?(?(1)|b12)" #"a12" (#"a" #"a")) + (#"(a)?(?(1)12)" #"a12" (#"a12" #"a")) + (#"(a)?(?(1)12)" #"b12" (#"" #f)) (#"(?(?=a)a12|b12)" #"a12" (#"a12")) (#"(?(?=a)a12|b12)" #"b12" (#"b12")) (#"(?(?=a)a12|b12)" #"c12" #f)