~ chicken-core (chicken-5) 272a01414bf74ea36c3869fdb2036b157edb51be

commit 272a01414bf74ea36c3869fdb2036b157edb51be
Author:     felix <felix@y.(none)>
AuthorDate: Mon Mar 1 14:09:56 2010 +0100
Commit:     felix <felix@y.(none)>
CommitDate: Mon Mar 1 14:09:56 2010 +0100

    removed glob?

diff --git a/regex.scm b/regex.scm
index 3fd16ecb..277b452e 100644
--- a/regex.scm
+++ b/regex.scm
@@ -38,7 +38,7 @@
     regexp? regexp
     string-match string-match-positions string-search string-search-positions
     string-split-fields string-substitute string-substitute*
-    glob? glob->regexp
+    glob->regexp
     grep
     regexp-escape 
 
@@ -246,18 +246,6 @@
 
 ;;; Glob support:
 
-(define (glob? str)			; DEPRECATED
-  (##sys#check-string str 'glob?)
-  (let loop ([idx (fx- (string-length str) 1)])
-    (and (fx<= 0 idx)
-         (case (string-ref str idx)
-           [(#\* #\] #\?)
-             (or (fx= 0 idx)
-                 (not (char=? #\\ (string-ref str (fx- idx 1))))
-                 (loop (fx- idx 2)))]
-           [else
-             (loop (fx- idx 1))]) ) ) )
-
 (define glob->regexp
   (let ([list->string list->string]
         [string->list string->list] )