scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
scsh/network.scm
View File

@ -87,10 +87,13 @@
(bind-socket sock addr) (bind-socket sock addr)
(listen-socket sock 5) (listen-socket sock 5)
(let loop () (let loop ()
(with-errno-handler
;; ECONNABORTED we just ignore
((errno packet) ((errno/connaborted) (loop)))
(call-with-values (call-with-values
(lambda () (accept-connection sock)) (lambda () (accept-connection sock))
proc) proc)
(loop)))) (loop)))))
;;;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- ;;;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
;;; Socket Record Structure ;;; Socket Record Structure