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 /build-aux/cuirass/evaluate.scm | |
| 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'.
Diffstat (limited to 'build-aux/cuirass/evaluate.scm')
| -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 5beac1b37c6..7ae5c266d13 100644 --- a/build-aux/cuirass/evaluate.scm +++ b/build-aux/cuirass/evaluate.scm | |||
| @@ -85,7 +85,8 @@ | |||
| 85 | (open-inferior (derivation->output-path derivation))) | 85 | (open-inferior (derivation->output-path derivation))) |
| 86 | %cuirass-supported-systems))) | 86 | %cuirass-supported-systems))) |
| 87 | (n-par-for-each | 87 | (n-par-for-each |
| 88 | (/ (current-processor-count) 2) | 88 | (min (length %cuirass-supported-systems) |
| 89 | (current-processor-count)) | ||
| 89 | (lambda (system inferior) | 90 | (lambda (system inferior) |
| 90 | (with-store store | 91 | (with-store store |
| 91 | (let ((channels (map channel-instance->sexp instances))) | 92 | (let ((channels (map channel-instance->sexp instances))) |