diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-09-16 20:09:45 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-09-16 21:00:08 +0100 |
| commit | b624ad8b342ac9a1454765d0e0c4f99c34b57e30 (patch) | |
| tree | 46d3f937523efee999187e8a06e9e16d9ff5d806 /scripts/guix-build-coordinator.in | |
| parent | 2dc6adbbbd6cec095d8606973c81d62d5930b87a (diff) | |
| download | build-coordinator-b624ad8b342ac9a1454765d0e0c4f99c34b57e30.tar build-coordinator-b624ad8b342ac9a1454765d0e0c4f99c34b57e30.tar.gz | |
Extract call-with-sigint to the utils module
Diffstat (limited to 'scripts/guix-build-coordinator.in')
| -rw-r--r-- | scripts/guix-build-coordinator.in | 15 |
1 files changed, 0 insertions, 15 deletions
diff --git a/scripts/guix-build-coordinator.in b/scripts/guix-build-coordinator.in index 7ea92a7..da22c1f 100644 --- a/scripts/guix-build-coordinator.in +++ b/scripts/guix-build-coordinator.in @@ -467,21 +467,6 @@ processed?: ~A (parameterize ((%show-error-details (assoc-ref opts 'show-error-details))) - ;; Copied from (fibers web server) - (define (call-with-sigint thunk cvar) - (let ((handler #f)) - (dynamic-wind - (lambda () - (set! handler - (sigaction SIGINT (lambda (sig) (signal-condition! cvar))))) - thunk - (lambda () - (if handler - ;; restore Scheme handler, SIG_IGN or SIG_DFL. - (sigaction SIGINT (car handler) (cdr handler)) - ;; restore original C handler. - (sigaction SIGINT #f)))))) - (let* ((agent-communication-thunk (let ((agent-communication-uri (string->uri (assq-ref opts 'agent-communication)))) |