[racket-dev] [plt] Push #22500: master branch updated

From: Eli Barzilay (eli at barzilay.org)
Date: Thu Apr 21 09:57:57 EDT 2011

An hour and a half ago, Kevin Tew wrote:
> An alternative patch that keeps places enabled but uses processes
> for build.

Yes -- this is what I meant by disabling it.  (Assuming that this
disables the parallel build with either places or processes.)


> diff --git a/collects/setup/parallel-do.rkt b/collects/setup/parallel-do.rkt
> index 00823fe..2716c2a 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)

-- 
          ((lambda (x) (x x)) (lambda (x) (x x)))          Eli Barzilay:
                    http://barzilay.org/                   Maze is Life!


Posted on the dev mailing list.