cuirass: Create just as many threads as needed.

* build-aux/cuirass/evaluate.scm (command-line): Change second argument
to 'n-par-for-each'.
This commit is contained in:
Ludovic Courtès 2022-05-26 00:17:56 +02:00
parent 98a6642298
commit d90bd5642a
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -85,7 +85,8 @@ (define derivation
(open-inferior (derivation->output-path derivation))) (open-inferior (derivation->output-path derivation)))
%cuirass-supported-systems))) %cuirass-supported-systems)))
(n-par-for-each (n-par-for-each
(/ (current-processor-count) 2) (min (length %cuirass-supported-systems)
(current-processor-count))
(lambda (system inferior) (lambda (system inferior)
(with-store store (with-store store
(let ((channels (map channel-instance->sexp instances))) (let ((channels (map channel-instance->sexp instances)))