suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

typo

Browse Source 
svn: r3128
This commit is contained in:
Eli Barzilay 2006-05-30 18:19:23 +00:00
parent 31f4f11a6a
commit 13f4f1e091
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mzlib/string.ss
View File

@ -407,7 +407,7 @@
(define default-glob-case-sens (define default-glob-case-sens
(not (memq (system-type) '(windows macos macosx)))) (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]) (opt-lambda (glob [case-sens? default-glob-case-sens])
(define len (string-length glob)) (define len (string-length glob))
(define range #f) (define range #f)