cuirass: Create just as many threads as needed.
* build-aux/cuirass/evaluate.scm (command-line): Change second argument to 'n-par-for-each'.master
parent
98a6642298
commit
d90bd5642a
|
@ -85,7 +85,8 @@
|
||||||
(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)))
|
||||||
|
|
Reference in New Issue