From 6341d714dd28e7f09773cd28b5801c71d11318b1 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sat, 6 Feb 2021 10:34:33 +0000 Subject: Use srfi-19 in the coordinator module --- guix-build-coordinator/coordinator.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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)))) -- cgit v1.2.3