From af1b96849c8b3ace4c31eef6ca6bf948686026b8 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 3 Apr 2015 21:05:10 -0500 Subject: [PATCH] raco setup: ignore prefetch message for PLaneT paths A "prefetch" message is an attempt to trigger parallel builds for multiple requires in a module. It doesn't work right with `(planet ...)` paths, probably because it doesn't work right with loading `planet/resolver`. --- racket/collects/setup/parallel-build.rkt | 5 +++++ 1 file changed, 5 insertions(+) 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