From 3190033d7a46b8c450e2837ee0cb3d8f6a2d158d Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Wed, 19 Jul 2006 00:48:34 +0000
Subject: [PATCH] fix bug in case-insensitive globs

svn: r3761
---
 collects/mzlib/string.ss | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/collects/mzlib/string.ss b/collects/mzlib/string.ss
index 3e17fc7158..e1e0c21bec 100644
--- a/collects/mzlib/string.ss
+++ b/collects/mzlib/string.ss
@@ -483,7 +483,7 @@
                 [else (error "internal error")])))
       (opt-lambda (glob [hide-dots? #t] [case-sens? def-case-sens])
         (let ([len    (string-length glob)]
-              [->case (if case-sens? values ->case-insens)])
+              [->case (if case-sens? list ->case-insens)])
           (let loop ([r '()] [i 0])
             (if (< i len)
               (let ([c (string-ref glob i)])
@@ -519,7 +519,7 @@
                                          ;; doing this only for single chars,
                                          ;; which means that backslash-quoted
                                          ;; chars are left alone
-                                         `(#\\ ,c) (list (->case c)))]
+                                         `(#\\ ,c) (->case c))]
                                       [(eq? 'any c) '(#\. #\*)]
                                       [(eq? 'char c) '(#\.)]
                                       ;; results of dot tweaking: no alphabetics