From 13f4f1e091d7cb3c6b22f49ec2d1e0e3f9f1cf9b Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Tue, 30 May 2006 18:19:23 +0000
Subject: [PATCH] typo

svn: r3128
---
 collects/mzlib/string.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/mzlib/string.ss b/collects/mzlib/string.ss
index 47c18df911..1d9db011d7 100644
--- 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)