diff options
| -rw-r--r-- | guix-build-coordinator/utils.scm | 15 |
1 files changed, 12 insertions, 3 deletions
diff --git a/guix-build-coordinator/utils.scm b/guix-build-coordinator/utils.scm index bc18081..7504559 100644 --- a/guix-build-coordinator/utils.scm +++ b/guix-build-coordinator/utils.scm @@ -684,9 +684,18 @@ References: ~a~%" (running-job-args (make-hash-table))) (define get-thread-count - (if (number? thread-count-parameter) - (const thread-count-parameter) - thread-count-parameter)) + (cond + ((number? thread-count-parameter) + (const thread-count-parameter)) + ((eq? thread-count-parameter #f) + ;; Run one thread per job + (lambda () + (+ (q-length queue) + (hash-count (lambda (index val) + (list? val)) + running-job-args)))) + (else + thread-count-parameter))) (define (process-job . args) (with-mutex queue-mutex |