suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

corrected conditional syntax

Browse Source 
svn: r4333
This commit is contained in:
Matthew Flatt 2006-09-14 06:21:12 +00:00
parent 381ddd655b
commit b240bd0a3a
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
collects/tests/mzscheme/rx.ss
View File

@ -1491,18 +1491,19 @@
(#"(?m:^a$[^a]^b$[^a]^c$)" #"a\nb\nc" (#"a\nb\nc")) (#"(?m:^a$[^a]^b$[^a]^c$)" #"a\nb\nc" (#"a\nb\nc"))
#"(?())" #"(?())"
#"(?(a))" #"(?(a))"
#"(?(\\1))" #"(a)(?(\\1))"
#"(?(\\1)a|b|c)" #"(?(1))"
#"(?(1)a|b|c)"
#"(?(?=x)a|b|c)" #"(?(?=x)a|b|c)"
#"(?(?=x)a" #"(?(?=x)a"
#"(?(?=x)a|b" #"(?(?=x)a|b"
#"(?(?=x)a|b|" #"(?(?=x)a|b|"
(#"(a)?(?(\\1)12|b12)" #"a12" (#"a12" #"a")) (#"(a)?(?(1)12|b12)" #"a12" (#"a12" #"a"))
(#"(a)?(?(\\1)12|b12)" #"b12" (#"b12" #f)) (#"(a)?(?(1)12|b12)" #"b12" (#"b12" #f))
(#"(a)?(?(\\1)12|b12)" #"b13" #f) (#"(a)?(?(1)12|b12)" #"b13" #f)
(#"(a)?(?(\\1)|b12)" #"a12" (#"a" #"a")) (#"(a)?(?(1)|b12)" #"a12" (#"a" #"a"))
(#"(a)?(?(\\1)12)" #"a12" (#"a12" #"a")) (#"(a)?(?(1)12)" #"a12" (#"a12" #"a"))
(#"(a)?(?(\\1)12)" #"b12" (#"" #f)) (#"(a)?(?(1)12)" #"b12" (#"" #f))
(#"(?(?=a)a12|b12)" #"a12" (#"a12")) (#"(?(?=a)a12|b12)" #"a12" (#"a12"))
(#"(?(?=a)a12|b12)" #"b12" (#"b12")) (#"(?(?=a)a12|b12)" #"b12" (#"b12"))
(#"(?(?=a)a12|b12)" #"c12" #f) (#"(?(?=a)a12|b12)" #"c12" #f)