From 23fa4fb684c2fd852f7dca377f7451506d8d796a Mon Sep 17 00:00:00 2001 From: Kevin Tew Date: Thu, 21 Apr 2011 06:24:30 -0600 Subject: [PATCH] Disable places build, using processes only. --- collects/setup/parallel-do.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/setup/parallel-do.rkt b/collects/setup/parallel-do.rkt index 00823fe488..2716c2affe 100644 --- a/collects/setup/parallel-do.rkt +++ b/collects/setup/parallel-do.rkt @@ -168,7 +168,8 @@ (find-system-path 'orig-dir)))))) (define (parallel-do-event-loop module-path funcname initialmsg jobqueue nprocs [stopat #f]) - (define use-places (place-enabled?)) +; (define use-places (place-enabled?)) + (define use-places #f) (define (spawn id) (define wrkr (if use-places (new PlaceWorker%) (new Worker%))) (wrkr/spawn wrkr id module-path funcname initialmsg)