Parallel collects build (process-based) "raco setup -u"

original commit: 35c28f4f66
This commit is contained in:
Kevin Tew 2010-06-22 14:49:47 -06:00
commit c919d0df5f
3 changed files with 5 additions and 2 deletions

View File

@ -79,6 +79,7 @@
compile-collection-zos
compile-directory-zos
compile-directory-srcs
current-compiler-dynamic-require-wrapper
compile-notify-handler))

View File

@ -1,6 +1,6 @@
#lang scheme/base
(require compiler/zo-structs
unstable/byte-counting-port
scheme/port
scheme/match
scheme/contract
scheme/local
@ -68,7 +68,7 @@
(out-data (list* max-let-depth prefix (protect-quote form))
(make-out outp (lambda (v) (hash-ref shared v #f)) wrapped))
(values offsets post-shared (file-position outp)))
(define counting-p (make-byte-counting-port))
(define counting-p (open-output-nowhere))
(define-values (offsets post-shared all-forms-length)
(write-all counting-p))
(define all-short? (post-shared . < . #xFFFF))

View File

@ -21,6 +21,8 @@
call-install
call-post-install
pause-on-errors
parallel-build
parallel-workers
force-unpacks
doc-pdf-dest
specific-collections