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

Disable places build, using processes only.

Browse Source
This commit is contained in:
Kevin Tew 2011-04-21 06:24:30 -06:00
parent 6bfef986d1
commit 23fa4fb684
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/setup/parallel-do.rkt
View File

@ -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)