typo

svn: r3154 original commit: 74ebcb96317f27ea51414113baf35cf91a93fa2e
2006-05-31 19:03:29 +00:00 · 2006-05-31 19:03:29 +00:00 · 4d25712eb0
commit 4d25712eb0
parent f2cc1bf72d
1 changed files with 1 additions and 1 deletions
--- a/collects/mzlib/string.ss
+++ b/collects/mzlib/string.ss
@ -454,7 +454,7 @@
                [(eq? 'char 1st) (cons no-dot1 (cdr l))]
                [(eq? 'any 1st)
                 (cond ;; "*"      -->  "(?:[^.].*)"
-                       [(not 2nd) no-dot+]
+                       [(not 2nd) (list no-dot+)]
                       ;; "*.---"  -->  "(?:[^.].*).---"
                       [(or (eq? #\. 2nd) (equal? '(quote #\.) 2nd))
                        (cons no-dot+ (cdr l))]