1 files changed, 0 insertions, 24 deletions
diff --git a/guix-build-coordinator/utils.scm b/guix-build-coordinator/utils.scm
index 297d777..c6c2d59 100644
--- a/guix-build-coordinator/utils.scm
+++ b/guix-build-coordinator/utils.scm
@@ -85,9 +85,6 @@
             create-work-queue
             create-thread-pool
 
-            with-timeout
-            reset-timeout
-
             throttle
 
             get-load-average
@@ -1266,27 +1263,6 @@ References: ~a~%"
 
     (values pool-mutex job-available count-threads list-jobs)))
 
-;; copied from (guix scripts substitute)
-(define-syntax-rule (with-timeout duration handler body ...)
-  "Run BODY; when DURATION seconds have expired, call HANDLER, and run BODY
-again."
-  (begin
-    (sigaction SIGALRM
-      (lambda (signum)
-        (sigaction SIGALRM SIG_DFL)
-        handler))
-    (alarm duration)
-    (call-with-values
-        (lambda ()
-          body ...)
-      (lambda result
-        (alarm 0)
-        (sigaction SIGALRM SIG_DFL)
-        (apply values result)))))
-
-(define (reset-timeout duration)
-  (alarm duration))
-
 (define (throttle min-duration thunk)
   (let ((next-min-runtime 0))
     (lambda ()