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

raco make: fix parallel-build prefetch for relative submodule paths

Browse Source 
Closes #2543
This commit is contained in:
Matthew Flatt 2019-03-21 18:58:20 -06:00
parent 0020332810
commit 7332060b69
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
racket/collects/setup/parallel-build.rkt
View File

@ -412,9 +412,14 @@
(define path (define path
(let loop ([prev prev]) (let loop ([prev prev])
(cond (cond
[(submod? prev) [(submod? prev)
(loop (cadr prev))] (define base (cadr prev))
[else (resolve-module-path prev (build-path dir "dummy.rkt"))]))) (cond
[(or (equal? base "..") (equal? base "."))
#f]
[else
(loop (cadr prev))])]
[else (resolve-module-path prev (build-path dir "dummy.rkt"))])))
(when (path? path) (when (path? path)
(send/add path))) (send/add path)))
p]))) p])))