typo

svn: r3128
2006-05-30 18:19:23 +00:00 · 2006-05-30 18:19:23 +00:00 · 13f4f1e091
commit 13f4f1e091
parent 31f4f11a6a
1 changed files with 1 additions and 1 deletions
--- a/collects/mzlib/string.ss
+++ b/collects/mzlib/string.ss
@ -407,7 +407,7 @@

  (define default-glob-case-sens
    (not (memq (system-type) '(windows macos macosx))))
-  (define (glob->regexp glob . case-sens?)
+  (define glob->regexp
    (opt-lambda (glob [case-sens? default-glob-case-sens])
      (define len (string-length glob))
      (define range #f)