diff options
author | Christopher Baines <mail@cbaines.net> | 2023-12-01 23:56:22 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2023-12-02 10:52:29 +0000 |
commit | 80c17e9ba216d6376aba7ea9cef9246ebbf1f42b (patch) | |
tree | fb0a757a72792b979ea956e047159bc258925e34 /guix-build-coordinator/coordinator.scm | |
parent | d39997008751b5f8f5c2fc6fae42e44642fe6de5 (diff) | |
download | build-coordinator-80c17e9ba216d6376aba7ea9cef9246ebbf1f42b.tar build-coordinator-80c17e9ba216d6376aba7ea9cef9246ebbf1f42b.tar.gz |
Don't pass time to wait-condition-variable
My intent here was to avoid threads waiting indefinitely for a
signal. Unfortunately, it seems that specifying a timeout can result in
wait-condition-variable entering an endless loop internally (#67194).
Hopefully avoid this by not passing a time to wait-condition-variable. Maybe
some new threads/fibers will need adding that periodically signal these
condition variables to replicate the timeout behaviour.
Diffstat (limited to 'guix-build-coordinator/coordinator.scm')
-rw-r--r-- | guix-build-coordinator/coordinator.scm | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/guix-build-coordinator/coordinator.scm b/guix-build-coordinator/coordinator.scm index 5353fab..cece029 100644 --- a/guix-build-coordinator/coordinator.scm +++ b/guix-build-coordinator/coordinator.scm @@ -1069,8 +1069,6 @@ #:parallel? #t)) (define (start-hook-processing-threads build-coordinator parallel-hooks) - (define wait-timeout-seconds (* 60 5)) - (define datastore (build-coordinator-datastore build-coordinator)) @@ -1174,10 +1172,7 @@ (while #t (match (datastore-list-unprocessed-hook-events datastore event-name 1) (() - (wait-condition-variable condvar - mtx - (+ (time-second (current-time)) - wait-timeout-seconds))) + (wait-condition-variable condvar mtx)) (((id event arguments)) (process-event id event arguments handler))))) (lambda (key . args) |