From e1399f3d145c5cad133184b5616d5e3476e71f8a Mon Sep 17 00:00:00 2001 From: Kevin Tew Date: Mon, 5 Jul 2010 08:32:49 -0600 Subject: [PATCH] Fix early compilation of racket --- collects/setup/setup-unit.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/setup/setup-unit.rkt b/collects/setup/setup-unit.rkt index 350986f3fd..18082a0812 100644 --- a/collects/setup/setup-unit.rkt +++ b/collects/setup/setup-unit.rkt @@ -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)