tweak parallel-build message

Merge to 5.1.1
This commit is contained in:
Matthew Flatt 2011-04-19 07:23:55 -06:00
parent 18e3f54fa5
commit 7389eef5b2

View File

@ -248,11 +248,11 @@
[else (send/error (format "DIDNT MATCH A\n"))]))))
(define (parallel-compile-files list-of-files
#:worker-count [worker-count (processor-count)]
#:handler [handler void])
#:worker-count [worker-count (processor-count)]
#:handler [handler void])
(parallel-build (make-object FileListQueue% list-of-files handler) worker-count))
(define (parallel-compile worker-count setup-fprintf append-error collects-tree)
(setup-fprintf (current-output-port) #f "--- parallel build using ~a processor cores ---" worker-count)
(setup-fprintf (current-output-port) #f "--- parallel build using ~a processors ---" worker-count)
(define collects-queue (make-object CollectsQueue% collects-tree setup-fprintf append-error))
(parallel-build collects-queue worker-count))