diff --git a/racket/collects/setup/parallel-build.rkt b/racket/collects/setup/parallel-build.rkt index 1a655942bf..6bc3dd2fd2 100644 --- a/racket/collects/setup/parallel-build.rkt +++ b/racket/collects/setup/parallel-build.rkt @@ -370,6 +370,7 @@ (andmap module-path? (car l))) (define dir (cadr l)) (define (quote? p) (and (pair? p) (eq? (car p) 'quote))) + (define (planet? p) (and (pair? p) (eq? (car p) 'planet))) (define (submod? p) (and (pair? p) (eq? (car p) 'submod))) ;; Add prefetch modules to work queue --- but skip the first one, ;; because it's going to be compiled immediately, anyway: @@ -379,6 +380,10 @@ (and (submod? p) (quote? (cadr p)))) ;; skip `quote` module paths prev] + [(or (planet? p) + (and (submod? p) (planet? (cadr p)))) + ;; skip `quote` module paths + prev] [else (when prev (define path