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

fix relative-path discovery for case-normalized paths

Browse Source
This commit is contained in:
Matthew Flatt 2015-11-16 12:53:17 -07:00
parent 912f1fe603
commit 6099a70c52
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkgs/racket-test/tests/setup/path-to-relative.rkt
View File

@ -10,3 +10,5 @@
(path->relative-string/library (path-only (collection-file-path "base.rkt" "racket")))) (path->relative-string/library (path-only (collection-file-path "base.rkt" "racket"))))
(check-equal? "<collects>/racket/base.rkt" (check-equal? "<collects>/racket/base.rkt"
(path->relative-string/library (collection-file-path "base.rkt" "racket"))) (path->relative-string/library (collection-file-path "base.rkt" "racket")))
(check-equal? "<collects>/racket/base.rkt"
(path->relative-string/library (normal-case-path (collection-file-path "base.rkt" "racket"))))

3
racket/collects/setup/path-relativize.rkt
View File

@ -44,7 +44,8 @@
;; `path1', but that messes up the xform compilation somehow, by ;; `path1', but that messes up the xform compilation somehow, by
;; having #<path...> vaules written into dep files. ;; having #<path...> vaules written into dep files.
[(null? path) path0] [(null? path) path0]
[(equal? (car path) (car root)) (loop (cdr path) (cdr root))] [(equal? (normal-case-path (car path)) (normal-case-path (car root)))
(loop (cdr path) (cdr root))]
[else path0]))) [else path0])))
(define root-or-orig (define root-or-orig