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

No !

Browse Source 
svn: r6642
This commit is contained in:
Jay McCarthy 2007-06-13 21:02:44 +00:00
parent d962bfa25e
commit 69c9896ca1
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/web-server/private/util.ss
View File

@ -2,7 +2,6 @@
(require (lib "list.ss") (require (lib "list.ss")
(lib "plt-match.ss") (lib "plt-match.ss")
(lib "contract.ss") (lib "contract.ss")
(lib "string.ss")
(lib "serialize.ss") (lib "serialize.ss")
(lib "pretty.ss") (lib "pretty.ss")
(lib "xml.ss" "xml") (lib "xml.ss" "xml")
@ -155,11 +154,11 @@
; lowercase-symbol! : (or/c string bytes) -> symbol ; lowercase-symbol! : (or/c string bytes) -> symbol
(define (lowercase-symbol! s) (define (lowercase-symbol! s)
(let ([s (if (bytes? s) (string->symbol
(string-downcase
(if (bytes? s)
(bytes->string/utf-8 s) (bytes->string/utf-8 s)
(string-copy s))]) (string-copy s)))))
(string-lowercase! s)
(string->symbol s)))
(define (directory-part path) (define (directory-part path)
(let-values ([(base name must-be-dir) (split-path path)]) (let-values ([(base name must-be-dir) (split-path path)])