diff options
| author | Christopher Baines <mail@cbaines.net> | 2025-03-10 21:44:43 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2025-03-11 17:15:00 +0000 |
| commit | c602c6b533843729c0443ed0f20f5eadc57b84a5 (patch) | |
| tree | fa91d0606772552cfec234087f0057da380b12e1 | |
| parent | 9fa059af61ffc67ed1f7389312393ad6f45515d7 (diff) | |
| download | data-service-c602c6b533843729c0443ed0f20f5eadc57b84a5.tar data-service-c602c6b533843729c0443ed0f20f5eadc57b84a5.tar.gz | |
Remove call-with-sigint
This comes from guile-knots now.
| -rw-r--r-- | guix-data-service/utils.scm | 17 |
1 files changed, 0 insertions, 17 deletions
diff --git a/guix-data-service/utils.scm b/guix-data-service/utils.scm index 4fa5813..be25979 100644 --- a/guix-data-service/utils.scm +++ b/guix-data-service/utils.scm @@ -52,8 +52,6 @@ get-guix-metrics-updater - call-with-sigint - spawn-port-monitoring-fiber make-queueing-channel)) @@ -187,18 +185,3 @@ (close-port sock))) #:timeout 20)) #:unwind? #t))))) - -;; 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)))))) |