From 7332060b69bd600b500992ac9a2016777164efb8 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 21 Mar 2019 18:58:20 -0600
Subject: [PATCH] raco make: fix parallel-build prefetch for relative submodule
 paths

Closes #2543
---
 racket/collects/setup/parallel-build.rkt | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/racket/collects/setup/parallel-build.rkt b/racket/collects/setup/parallel-build.rkt
index a1f4d75638..1aa8cd06af 100644
--- 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])))