diff options
-rw-r--r-- | guix-build-coordinator/utils.scm | 2 | ||||
-rw-r--r-- | guix-build-coordinator/utils/fibers.scm | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/guix-build-coordinator/utils.scm b/guix-build-coordinator/utils.scm index 74b4539..053730b 100644 --- a/guix-build-coordinator/utils.scm +++ b/guix-build-coordinator/utils.scm @@ -633,7 +633,7 @@ References: ~a~%" compressed-files)))) (define* (retry-on-error f #:key times delay ignore no-retry error-hook - sleep-impl) + (sleep-impl sleep)) (let loop ((attempt 1)) (match (with-exception-handler (lambda (exn) diff --git a/guix-build-coordinator/utils/fibers.scm b/guix-build-coordinator/utils/fibers.scm index 965948a..a89f9ab 100644 --- a/guix-build-coordinator/utils/fibers.scm +++ b/guix-build-coordinator/utils/fibers.scm @@ -532,4 +532,4 @@ If already in the worker thread, call PROC immediately." (@ (guix-build-coordinator utils) retry-on-error) (append args - (list #:sleep sleep)))) + (list #:sleep-impl sleep)))) |