Fix early compilation of racket

This commit is contained in:
Kevin Tew 2010-07-05 08:32:49 -06:00
parent 1033684dbb
commit e1399f3d14

View File

@ -660,7 +660,7 @@
(setup-printf #f "--- compiling collections ---")
(match (parallel-build)
[#t
(compile-cc (ormap (lambda (x) (if (string=? (cc-name x) "racket") x #f)) ccs-to-compile) 0)
(compile-cc (collection->cc (list (string->path "racket"))) 0)
(with-specified-mode
(let ([cct (move-drscheme-to-end (sort-collections-tree (collection-tree-map top-level-plt-collects)))])
(iterate-cct (lambda (cc)