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

scsh/network.scm

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