From d90bd5642a3663cc7d5124068fadbf8fa28b3207 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Thu, 26 May 2022 00:17:56 +0200
Subject: [PATCH] cuirass: Create just as many threads as needed.

* build-aux/cuirass/evaluate.scm (command-line): Change second argument
to 'n-par-for-each'.
---
 build-aux/cuirass/evaluate.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/build-aux/cuirass/evaluate.scm b/build-aux/cuirass/evaluate.scm
index 5beac1b37c..7ae5c266d1 100644
--- 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)))