cuirass: Create just as many threads as needed.

* build-aux/cuirass/evaluate.scm (command-line): Change second argument to 'n-par-for-each'.
2022-05-26 00:17:56 +02:00 · 2022-05-26 00:17:56 +02:00 · d90bd5642a
commit d90bd5642a
parent 98a6642298
1 changed files with 2 additions and 1 deletions
--- a/build-aux/cuirass/evaluate.scm
+++ b/build-aux/cuirass/evaluate.scm
@ -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)))