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

constrain use of normal-case-path to just the path part

Browse Source 
svn: r6958
This commit is contained in:
Matthew Flatt 2007-07-25 13:56:15 +00:00
parent b73df3c1ed
commit 5e0ed3552a
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/compiler/embed-unit.ss
View File

@ -295,7 +295,14 @@
(format "#%embedded:~a:" (gensym))) (format "#%embedded:~a:" (gensym)))
(define (normalize filename) (define (normalize filename)
(normal-case-path (simplify-path (expand-path filename)))) (let ([f (simplify-path (expand-path filename))])
;; Use normal-case-path on just the base part, to avoid
;; changing the filename case (which should match the
;; module-name case within the file):
(let-values ([(base name dir?) (split-path f)])
(if (path? base)
(build-path (normal-case-path base) name)
f))))
(define (is-lib-path? a) (define (is-lib-path? a)
(and (pair? a) (and (pair? a)