cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove call-with-sigint

Browse source 
This comes from guile-knots now.
This commit is contained in:
Christopher Baines 2025-03-10 21:44:43 +00:00
parent 9fa059af61
commit c602c6b533
1 changed files with 0 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

17
guix-data-service/utils.scm
View file

@ -52,8 +52,6 @@
get-guix-metrics-updater get-guix-metrics-updater
call-with-sigint
spawn-port-monitoring-fiber spawn-port-monitoring-fiber
make-queueing-channel)) make-queueing-channel))
@ -187,18 +185,3 @@
(close-port sock))) (close-port sock)))
#:timeout 20)) #:timeout 20))
#:unwind? #t))))) #: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))))))