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

Closes #2543
2019-03-21 18:58:20 -06:00 · 2019-03-21 18:58:20 -06:00 · 7332060b69
commit 7332060b69
parent 0020332810
1 changed files with 8 additions and 3 deletions
--- a/racket/collects/setup/parallel-build.rkt
+++ b/racket/collects/setup/parallel-build.rkt
@ -412,9 +412,14 @@
                 (define path
                   (let loop ([prev prev])
                     (cond
-                      [(submod? prev)
-                       (loop (cadr prev))]
-                      [else (resolve-module-path prev (build-path dir "dummy.rkt"))])))
+                       [(submod? prev)
+                        (define base (cadr prev))
+                        (cond
+                          [(or (equal? base "..") (equal? base "."))
+                           #f]
+                          [else
+                           (loop (cadr prev))])]
+                       [else (resolve-module-path prev (build-path dir "dummy.rkt"))])))
                 (when (path? path)
                   (send/add path)))
               p])))