diff options
Diffstat (limited to 'guix-build-coordinator/utils.scm')
-rw-r--r-- | guix-build-coordinator/utils.scm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/guix-build-coordinator/utils.scm b/guix-build-coordinator/utils.scm index f605f7f..a0d8df3 100644 --- a/guix-build-coordinator/utils.scm +++ b/guix-build-coordinator/utils.scm @@ -530,9 +530,10 @@ References: ~a~%" (enq! queue args) (signal-condition-variable job-available))) - (define (count-running-jobs) + (define (count-jobs) (with-mutex queue-mutex - running-jobs-count)) + (+ (q-length queue) + running-jobs-count))) (for-each (lambda (i) @@ -559,4 +560,4 @@ References: ~a~%" (loop))))) (iota thread-count)) - (values process-job count-running-jobs))) + (values process-job count-jobs))) |