Plug space leak in BIND-LISTEN-ACCEPT-LOOK: Errno handlers for failed

connections would accumulate indefinitely.

scsh/network.scm

@@ -80,11 +80,11 @@
 	 (with-errno-handler
 	  ;; ECONNABORTED we just ignore
 	  ((errno packet)
-	   ((errno/connaborted) (loop)))
+	   ((errno/connaborted) 'fick-dich-ins-knie))
 	  (call-with-values 
 	   (lambda () (accept-connection sock))
-	   proc)
-	  (loop)))))))
+	   proc))
+	 (loop))))))
 
 ;;;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
 ;;; Socket Record Structure