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

raco setup: fix PLTCOMPILEDROOTS handling when checking pkg deps

Browse Source 
Closes PR 14540
This commit is contained in:
Matthew Flatt 2014-06-04 19:57:57 +01:00
parent 8828865c79
commit 0f6cdbf9e3
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
racket/collects/setup/private/pkg-deps.rkt
View File

@ -372,12 +372,11 @@
values
(for*/list ([root (in-list (current-compiled-file-roots))]
[mode (in-list (use-compiled-file-paths))])
(define dir (build-path path mode))
(define compiled-dir
(cond
[(eq? root 'same) dir]
[(relative-path? root) (build-path root dir)]
[else (reroot-path dir root)]))
[(eq? root 'same) (build-path path mode)]
[(relative-path? root) (build-path path root mode)]
[else (reroot-path (build-path path mode) root)]))
(and (directory-exists? compiled-dir)
compiled-dir))))