diff options
| -rw-r--r-- | guix-build-coordinator/coordinator.scm | 2 | ||||
| -rw-r--r-- | guix-build-coordinator/utils.scm | 7 |
2 files changed, 2 insertions, 7 deletions
diff --git a/guix-build-coordinator/coordinator.scm b/guix-build-coordinator/coordinator.scm index 14dd160..3830d88 100644 --- a/guix-build-coordinator/coordinator.scm +++ b/guix-build-coordinator/coordinator.scm @@ -1202,7 +1202,7 @@ ;; the hook processing thread crashing, also raises ;; an exception, so just try and sleep and hope ;; things go better next time - (core-guile-sleep 10)) + (sleep 10)) (lambda () (log-msg (build-coordinator-logger build-coordinator) 'CRITICAL diff --git a/guix-build-coordinator/utils.scm b/guix-build-coordinator/utils.scm index a9d7edf..bef9937 100644 --- a/guix-build-coordinator/utils.scm +++ b/guix-build-coordinator/utils.scm @@ -102,9 +102,7 @@ open-socket-for-uri* - check-locale! - - core-guile-sleep)) + check-locale!)) (eval-when (eval load compile) (begin @@ -1476,6 +1474,3 @@ falling back to en_US.utf8\n" (lambda _ (setlocale LC_ALL "")) #:unwind? #t)) - -(define core-guile-sleep - sleep) |