suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

small clean-ups

Browse Source
This commit is contained in:
Matthew Flatt 2011-04-11 23:29:22 -04:00
parent 8a2d5878bc
commit f36e3ad16c
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/setup/setup-unit.rkt
View File

@ -684,9 +684,12 @@
(match (parallel-workers)
[(? (lambda (x) (x . > . 1)))
(compile-cc (collection->cc (list (string->path "racket"))) 0)
(managed-compile-zo (build-path main-collects-dir "setup/parallel-build-worker.rkt"))
(managed-compile-zo (collection-file-path "parallel-build-worker.rkt" "setup"))
(with-specified-mode
(let ([cct (move-to-begining (list "compiler" "raco" "racket") (move-to-end "drscheme" (sort-collections-tree (collection-tree-map top-level-plt-collects))))])
(let ([cct (move-to-begining (list "compiler" "raco" "racket")
(move-to-end "drscheme"
(sort-collections-tree
(collection-tree-map top-level-plt-collects))))])
(iterate-cct (lambda (cc)
(let ([dir (cc-path cc)]
[info (cc-info cc)])