diff options
Diffstat (limited to 'guix-build-coordinator/utils.scm')
-rw-r--r-- | guix-build-coordinator/utils.scm | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/guix-build-coordinator/utils.scm b/guix-build-coordinator/utils.scm index 9d2e75a..d19f390 100644 --- a/guix-build-coordinator/utils.scm +++ b/guix-build-coordinator/utils.scm @@ -1132,6 +1132,10 @@ References: ~a~%" (let loop ((last-job-finished-at (current-time time-monotonic))) (lock-mutex pool-mutex) + (hash-set! running-job-args + thread-index + #f) + (if (too-many-threads?) (stop-thread) (let ((job-args @@ -1151,11 +1155,6 @@ References: ~a~%" (unlock-mutex pool-mutex) (thread-process-job job-args) - (with-mutex pool-mutex - (hash-set! running-job-args - thread-index - #f)) - (loop (current-time time-monotonic))) (if (thread-idle-for-too-long? last-job-finished-at) (stop-thread) |