Parallel collects build (process-based) "raco setup -u"
original commit: 35c28f4f66
This commit is contained in:
commit
c919d0df5f
|
@ -79,6 +79,7 @@
|
||||||
|
|
||||||
compile-collection-zos
|
compile-collection-zos
|
||||||
compile-directory-zos
|
compile-directory-zos
|
||||||
|
compile-directory-srcs
|
||||||
|
|
||||||
current-compiler-dynamic-require-wrapper
|
current-compiler-dynamic-require-wrapper
|
||||||
compile-notify-handler))
|
compile-notify-handler))
|
||||||
|
|
|
@ -1,6 +1,6 @@
|
||||||
#lang scheme/base
|
#lang scheme/base
|
||||||
(require compiler/zo-structs
|
(require compiler/zo-structs
|
||||||
unstable/byte-counting-port
|
scheme/port
|
||||||
scheme/match
|
scheme/match
|
||||||
scheme/contract
|
scheme/contract
|
||||||
scheme/local
|
scheme/local
|
||||||
|
@ -68,7 +68,7 @@
|
||||||
(out-data (list* max-let-depth prefix (protect-quote form))
|
(out-data (list* max-let-depth prefix (protect-quote form))
|
||||||
(make-out outp (lambda (v) (hash-ref shared v #f)) wrapped))
|
(make-out outp (lambda (v) (hash-ref shared v #f)) wrapped))
|
||||||
(values offsets post-shared (file-position outp)))
|
(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)
|
(define-values (offsets post-shared all-forms-length)
|
||||||
(write-all counting-p))
|
(write-all counting-p))
|
||||||
(define all-short? (post-shared . < . #xFFFF))
|
(define all-short? (post-shared . < . #xFFFF))
|
||||||
|
|
|
@ -21,6 +21,8 @@
|
||||||
call-install
|
call-install
|
||||||
call-post-install
|
call-post-install
|
||||||
pause-on-errors
|
pause-on-errors
|
||||||
|
parallel-build
|
||||||
|
parallel-workers
|
||||||
force-unpacks
|
force-unpacks
|
||||||
doc-pdf-dest
|
doc-pdf-dest
|
||||||
specific-collections
|
specific-collections
|
||||||
|
|
Loading…
Reference in New Issue
Block a user