diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-05-10 09:12:46 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-05-10 09:12:46 +0100 |
| commit | 039430a0ef549c36cd67227be2b0ca2b08bb7925 (patch) | |
| tree | 9175749eb633c167ea5e35146504f6bfad20622b /guix-build-coordinator | |
| parent | 2926604aa05db459e93dae5687c32d75d4efd04e (diff) | |
| download | build-coordinator-039430a0ef549c36cd67227be2b0ca2b08bb7925.tar build-coordinator-039430a0ef549c36cd67227be2b0ca2b08bb7925.tar.gz | |
Correct some indentation
Diffstat (limited to 'guix-build-coordinator')
| -rw-r--r-- | guix-build-coordinator/utils.scm | 44 |
1 files changed, 22 insertions, 22 deletions
diff --git a/guix-build-coordinator/utils.scm b/guix-build-coordinator/utils.scm index 00774c8..ed61c95 100644 --- a/guix-build-coordinator/utils.scm +++ b/guix-build-coordinator/utils.scm @@ -1041,28 +1041,28 @@ References: ~a~%" (define start-new-threads-if-necessary (let ((previous-thread-started-at (make-time time-monotonic 0 0))) (lambda (desired-count) - (let* ((thread-count - (hash-count (const #t) running-job-args)) - (threads-to-start - (- desired-count thread-count))) - (when (> threads-to-start 0) - (for-each - (lambda (thread-index) - (when (eq? (hash-ref running-job-args - thread-index - 'slot-free) - 'slot-free) - (let* ((now (current-time time-monotonic)) - (elapsed (time-difference now - previous-thread-started-at))) - (when (or (eq? #f thread-start-delay) - (time>=? elapsed thread-start-delay)) - (set! previous-thread-started-at now) - (hash-set! running-job-args - thread-index - #f) - (start-thread thread-index))))) - (iota desired-count))))))) + (let* ((thread-count + (hash-count (const #t) running-job-args)) + (threads-to-start + (- desired-count thread-count))) + (when (> threads-to-start 0) + (for-each + (lambda (thread-index) + (when (eq? (hash-ref running-job-args + thread-index + 'slot-free) + 'slot-free) + (let* ((now (current-time time-monotonic)) + (elapsed (time-difference now + previous-thread-started-at))) + (when (or (eq? #f thread-start-delay) + (time>=? elapsed thread-start-delay)) + (set! previous-thread-started-at now) + (hash-set! running-job-args + thread-index + #f) + (start-thread thread-index))))) + (iota desired-count))))))) (if (procedure? thread-count-parameter) (call-with-new-thread |