Ignore ERRNO/CONNABORTED in BIND-LISTEN-ACCEPT-LOOP.

This commit is contained in:
uid35759 2001-07-04 11:26:15 +00:00
parent e381d4737e
commit 9db99b091c
1 changed files with 9 additions and 6 deletions

View File

@ -81,16 +81,19 @@
protocol-family/unix) protocol-family/unix)
(unix-address->socket-address arg)) (unix-address->socket-address arg))
(else (else
(error "bind-listen-accept-loop: unsupported protocol-family ~s" (error "bind-listen-accept-loop: unsupported protocol-family ~s"
protocol-family))))) protocol-family)))))
(set-socket-option sock level/socket socket/reuse-address #t) (set-socket-option sock level/socket socket/reuse-address #t)
(bind-socket sock addr) (bind-socket sock addr)
(listen-socket sock 5) (listen-socket sock 5)
(let loop () (let loop ()
(call-with-values (with-errno-handler
(lambda () (accept-connection sock)) ;; ECONNABORTED we just ignore
proc) ((errno packet) ((errno/connaborted) (loop)))
(loop)))) (call-with-values
(lambda () (accept-connection sock))
proc)
(loop)))))
;;;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- ;;;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
;;; Socket Record Structure ;;; Socket Record Structure