diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2022-05-26 00:17:56 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2022-05-26 11:41:05 +0200 |
| commit | d90bd5642a3663cc7d5124068fadbf8fa28b3207 (patch) | |
| tree | 605bed69e68a4c9fccb4a0ca53d520cdcb6375b8 | |
| parent | 98a6642298be6663b9d318b7dea46d1dba275839 (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.scm | 3 |
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))) |