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

scsh/network.scm

@@ -81,16 +81,19 @@
 			 protocol-family/unix)
 		      (unix-address->socket-address arg))
 		     (else 
-      (error "bind-listen-accept-loop: unsupported protocol-family ~s"
-	     protocol-family)))))
+		      (error "bind-listen-accept-loop: unsupported protocol-family ~s"
+			     protocol-family)))))
     (set-socket-option sock level/socket socket/reuse-address #t)
     (bind-socket sock addr)
     (listen-socket sock 5)
     (let loop ()
-      (call-with-values 
-       (lambda () (accept-connection sock))
-       proc)
-      (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