summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2022-05-26 00:17:56 +0200
committerLudovic Courtès <ludo@gnu.org>2022-05-26 11:41:05 +0200
commitd90bd5642a3663cc7d5124068fadbf8fa28b3207 (patch)
tree605bed69e68a4c9fccb4a0ca53d520cdcb6375b8
parent98a6642298be6663b9d318b7dea46d1dba275839 (diff)
cuirass: Create just as many threads as needed.
* build-aux/cuirass/evaluate.scm (command-line): Change second argument to 'n-par-for-each'.
-rw-r--r--build-aux/cuirass/evaluate.scm3
1 files changed, 2 insertions, 1 deletions
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)))