Removed call/cc from handler of bind-listen-accept-loop: We want to
close the socket, but not prevent the exception to come through (Otherwise you get 'interrupted on undefined globals...).
This commit is contained in:
parent
e6a7699ef4
commit
a7227450ca
|
@ -86,24 +86,22 @@
|
|||
(set-socket-option sock level/socket socket/reuse-address #t)
|
||||
(bind-socket sock addr)
|
||||
(listen-socket sock 5)
|
||||
(call-with-current-continuation
|
||||
(lambda (exit)
|
||||
(with-handler
|
||||
(lambda (condition more)
|
||||
(with-handler
|
||||
(lambda (condition more)
|
||||
(with-handler
|
||||
(lambda (condition ignore) (more))
|
||||
(lambda () (close-socket sock)))
|
||||
(exit 'interrupted))
|
||||
(lambda ()
|
||||
(let loop ()
|
||||
(with-errno-handler
|
||||
;; ECONNABORTED we just ignore
|
||||
((errno packet)
|
||||
((errno/connaborted) (loop)))
|
||||
(call-with-values
|
||||
(lambda () (accept-connection sock))
|
||||
proc)
|
||||
(loop)))))))))
|
||||
(lambda (condition ignore) (more))
|
||||
(lambda () (close-socket sock)))
|
||||
(more))
|
||||
(lambda ()
|
||||
(let loop ()
|
||||
(with-errno-handler
|
||||
;; ECONNABORTED we just ignore
|
||||
((errno packet)
|
||||
((errno/connaborted) (loop)))
|
||||
(call-with-values
|
||||
(lambda () (accept-connection sock))
|
||||
proc)
|
||||
(loop)))))))
|
||||
|
||||
;;;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
|
||||
;;; Socket Record Structure
|
||||
|
|
Loading…
Reference in New Issue