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

fix collapse-module-path for rel-to of .

Browse Source 
svn: r2933
This commit is contained in:
Matthew Flatt 2006-05-13 15:27:21 +00:00
parent 22be82f603
commit b04da77a20
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/syntax/moddep.ss
View File

@ -343,7 +343,9 @@
(ormap path? elements))) (ormap path? elements)))
(apply build-path (apply build-path
(let-values ([(base name dir?) (split-path relto-mp)]) (let-values ([(base name dir?) (split-path relto-mp)])
base) (if (eq? base 'relative)
'same
base))
(map (lambda (x) (if (bytes? x) (bytes->path x) x)) (map (lambda (x) (if (bytes? x) (bytes->path x) x))
elements))] elements))]
[(string? relto-mp) [(string? relto-mp)

2
collects/tests/mzscheme/moddep.ss
View File

@ -105,6 +105,8 @@
(test-cmp '(planet "x.ss" ("m" "z.plt" 2)) '(planet "x.ss" ("m" "z.plt" 2)) '(file "q.ss")) (test-cmp '(planet "x.ss" ("m" "z.plt" 2)) '(planet "x.ss" ("m" "z.plt" 2)) '(file "q.ss"))
(test-cmp '(planet "x.ss" ("m" "z.plt" 2)) '(planet "x.ss" ("m" "z.plt" 2)) "where/in/the/world/cs.ss") (test-cmp '(planet "x.ss" ("m" "z.plt" 2)) '(planet "x.ss" ("m" "z.plt" 2)) "where/in/the/world/cs.ss")
(test-cmp "./x.ss" "x.ss" ".")
;; Try path cases that don't fit UTF-8 (and therefore would go wrong as a string): ;; Try path cases that don't fit UTF-8 (and therefore would go wrong as a string):
(let ([dir (build-path (current-directory) (bytes->path #"\xFF"))]) (let ([dir (build-path (current-directory) (bytes->path #"\xFF"))])
(test-cmp (build-path dir "x.ss") (test-cmp (build-path dir "x.ss")