cbaines pushed a commit to branch trunk
in repository data-service.
commit c602c6b533843729c0443ed0f20f5eadc57b84a5
Author: Christopher Baines <[email protected]>
AuthorDate: Mon Mar 10 21:44:43 2025 +0000
Remove call-with-sigint
This comes from guile-knots now.
---
guix-data-service/utils.scm | 17 -----------------
1 file changed, 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))))))
