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

typo

Browse Source 
svn: r3154
This commit is contained in:
Eli Barzilay 2006-05-31 19:03:29 +00:00
parent 99bec24645
commit 74ebcb9631
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mzlib/string.ss
View File

@ -454,7 +454,7 @@
[(eq? 'char 1st) (cons no-dot1 (cdr l))] [(eq? 'char 1st) (cons no-dot1 (cdr l))]
[(eq? 'any 1st) [(eq? 'any 1st)
(cond ;; "*" --> "(?:[^.].*)" (cond ;; "*" --> "(?:[^.].*)"
[(not 2nd) no-dot+] [(not 2nd) (list no-dot+)]
;; "*.---" --> "(?:[^.].*).---" ;; "*.---" --> "(?:[^.].*).---"
[(or (eq? #\. 2nd) (equal? '(quote #\.) 2nd)) [(or (eq? #\. 2nd) (equal? '(quote #\.) 2nd))
(cons no-dot+ (cdr l))] (cons no-dot+ (cdr l))]