raco setup: just core "racket" for initial sequential build

This commit is contained in:
Matthew Flatt 2013-07-05 16:33:47 -06:00
parent 14bb91d427
commit 8be8057ff7

View File

@ -883,7 +883,10 @@
(when (or no-specific-collections? (when (or no-specific-collections?
(member "racket" x-specific-collections)) (member "racket" x-specific-collections))
(for/fold ([gcs 0]) ([cc (in-list (collection->ccs (list (string->path "racket"))))]) (for/fold ([gcs 0]) ([cc (in-list (collection->ccs (list (string->path "racket"))))])
(compile-cc cc 0))) (when (and (cc-main? cc)
(member (cc-info-root cc)
(current-library-collection-paths)))
(compile-cc cc 0))))
(managed-compile-zo (collection-file-path "parallel-build-worker.rkt" "setup")) (managed-compile-zo (collection-file-path "parallel-build-worker.rkt" "setup"))
(with-specified-mode (with-specified-mode
(lambda () (lambda ()