From 14e18eed98d1836662d8787d08f7a37cf8c2f69d Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sat, 16 Mar 2024 22:27:56 +0000 Subject: Fix the sleep-impl argument to retry-on-error --- guix-build-coordinator/utils.scm | 2 +- 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)))) -- cgit v1.2.3