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
1 changed files with 2 additions and 1 deletions

View File

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