From f36e3ad16c99d7c75d4b035eaeb9be548a8bc577 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 11 Apr 2011 23:29:22 -0400 Subject: [PATCH] small clean-ups --- collects/setup/setup-unit.rkt | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/collects/setup/setup-unit.rkt b/collects/setup/setup-unit.rkt index 00e902695b..988d567280 100644 --- a/collects/setup/setup-unit.rkt +++ b/collects/setup/setup-unit.rkt @@ -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)])