From 89f2b96b796d39857e0ef9849ef4224d572acb27 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Wed, 6 Dec 2023 14:50:44 +0000
Subject: Re-fetch running jobs in the thread pool

As the information might be stale when wait-condition-variable returns.
---
 guix-build-coordinator/utils.scm | 18 ++++++++----------
 1 file changed, 8 insertions(+), 10 deletions(-)

diff --git a/guix-build-coordinator/utils.scm b/guix-build-coordinator/utils.scm
index 84b4833..9d2e75a 100644
--- a/guix-build-coordinator/utils.scm
+++ b/guix-build-coordinator/utils.scm
@@ -1134,16 +1134,14 @@ References: ~a~%"
 
            (if (too-many-threads?)
                (stop-thread)
-               (let* ((running-jobs
-                       (list-jobs))
-                      (job-args
-                       (or (get-job running-jobs)
-                           ;; #f from wait-condition-variable indicates a timeout
-                           (if (wait-condition-variable
-                                job-available
-                                pool-mutex)
-                               (get-job running-jobs)
-                               #f))))
+               (let ((job-args
+                      (or (get-job (list-jobs))
+                          ;; #f from wait-condition-variable indicates a timeout
+                          (if (wait-condition-variable
+                               job-available
+                               pool-mutex)
+                              (get-job (list-jobs))
+                              #f))))
                  (if job-args
                      (begin
                        (hash-set! running-job-args
-- 
cgit v1.2.3