Plug space leak in BIND-LISTEN-ACCEPT-LOOK: Errno handlers for failed
connections would accumulate indefinitely.
This commit is contained in:
parent
cb6e8572d6
commit
7fdde2527f
|
@ -80,11 +80,11 @@
|
||||||
(with-errno-handler
|
(with-errno-handler
|
||||||
;; ECONNABORTED we just ignore
|
;; ECONNABORTED we just ignore
|
||||||
((errno packet)
|
((errno packet)
|
||||||
((errno/connaborted) (loop)))
|
((errno/connaborted) 'fick-dich-ins-knie))
|
||||||
(call-with-values
|
(call-with-values
|
||||||
(lambda () (accept-connection sock))
|
(lambda () (accept-connection sock))
|
||||||
proc)
|
proc))
|
||||||
(loop)))))))
|
(loop))))))
|
||||||
|
|
||||||
;;;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
|
;;;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
|
||||||
;;; Socket Record Structure
|
;;; Socket Record Structure
|
||||||
|
|
Loading…
Reference in New Issue