diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-05-10 20:33:26 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-05-10 21:08:01 +0100 |
| commit | 527fa6c657b25f3fd9f007b1cdf5b2b5dac75d0a (patch) | |
| tree | dde2261c45c91c537ec2567d3d1bd6fbfea17c34 /guix-build-coordinator | |
| parent | 2800a89314f48ba2d089e2ba61fe086438ca13b2 (diff) | |
| download | build-coordinator-527fa6c657b25f3fd9f007b1cdf5b2b5dac75d0a.tar build-coordinator-527fa6c657b25f3fd9f007b1cdf5b2b5dac75d0a.tar.gz | |
Remove with-timeout
As it's now unused.
Diffstat (limited to 'guix-build-coordinator')
| -rw-r--r-- | guix-build-coordinator/utils.scm | 24 |
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 () |