diff options
author | Christopher Baines <mail@cbaines.net> | 2021-02-06 10:34:33 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2021-02-06 10:34:33 +0000 |
commit | 6341d714dd28e7f09773cd28b5801c71d11318b1 (patch) | |
tree | bf25a58b02c6dc6f4f934ebae365aeff900db1ac | |
parent | 7155f428fc7eb7ea71e7d2d97dfc97a9410162a4 (diff) | |
download | build-coordinator-6341d714dd28e7f09773cd28b5801c71d11318b1.tar build-coordinator-6341d714dd28e7f09773cd28b5801c71d11318b1.tar.gz |
Use srfi-19 in the coordinator module
-rw-r--r-- | guix-build-coordinator/coordinator.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/guix-build-coordinator/coordinator.scm b/guix-build-coordinator/coordinator.scm index f874c48..06b5a40 100644 --- a/guix-build-coordinator/coordinator.scm +++ b/guix-build-coordinator/coordinator.scm @@ -21,6 +21,7 @@ (define-module (guix-build-coordinator coordinator) #:use-module (srfi srfi-1) #:use-module (srfi srfi-9) + #:use-module (srfi srfi-19) #:use-module (srfi srfi-26) #:use-module (ice-9 ftw) #:use-module (ice-9 match) @@ -576,7 +577,7 @@ (unless (process-event event-name handler) (wait-condition-variable condvar mtx - (+ (current-time) + (+ (time-second (current-time)) wait-timeout-seconds (random 30)))))))))) (cons event-name condvar)))) |