diff options
| -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))) |