From 69c9896ca141e7d91d96ab18f5564ea5eafdd1de Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Wed, 13 Jun 2007 21:02:44 +0000 Subject: [PATCH] No ! svn: r6642 --- collects/web-server/private/util.ss | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/collects/web-server/private/util.ss b/collects/web-server/private/util.ss index b1df33e1bc..bec82aa7c5 100644 --- a/collects/web-server/private/util.ss +++ b/collects/web-server/private/util.ss @@ -2,7 +2,6 @@ (require (lib "list.ss") (lib "plt-match.ss") (lib "contract.ss") - (lib "string.ss") (lib "serialize.ss") (lib "pretty.ss") (lib "xml.ss" "xml") @@ -155,11 +154,11 @@ ; lowercase-symbol! : (or/c string bytes) -> symbol (define (lowercase-symbol! s) - (let ([s (if (bytes? s) - (bytes->string/utf-8 s) - (string-copy s))]) - (string-lowercase! s) - (string->symbol s))) + (string->symbol + (string-downcase + (if (bytes? s) + (bytes->string/utf-8 s) + (string-copy s))))) (define (directory-part path) (let-values ([(base name must-be-dir) (split-path path)])