mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-29 22:40:34 +02:00
Code Activity

REPL Server: Don't establish a SIGINT handler.

Browse source 
* module/system/repl/server.scm (call-with-sigint): Remove.
  (accept-new-client): Don't wrap 'call-with-sigint' around call to
  'accept'.
This commit is contained in:
Mark H Weaver 2014-01-21 16:06:40 -05:00
parent d0d8c872af
commit e6c8e6047e
1 changed files with 1 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

19
module/system/repl/server.scm
View file

@ -67,27 +67,10 @@
(bind sock AF_UNIX path) (bind sock AF_UNIX path)
sock)) sock))
(define call-with-sigint
(if (not (provided? 'posix))
(lambda (thunk) (thunk))
(lambda (thunk)
(let ((handler #f))
(dynamic-wind
(lambda ()
(set! handler
(sigaction SIGINT (lambda (sig) (throw 'interrupt)))))
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))))))))
(define* (run-server #:optional (server-socket (make-tcp-server-socket))) (define* (run-server #:optional (server-socket (make-tcp-server-socket)))
(define (accept-new-client) (define (accept-new-client)
(catch #t (catch #t
(lambda () (call-with-sigint (lambda () (accept server-socket)))) (lambda () (accept server-socket))
(lambda (k . args) (lambda (k . args)
(cond (cond
((port-closed? server-socket) ((port-closed? server-socket)