From 7fdde2527f813a482a13c3d59c1897f978a36cee Mon Sep 17 00:00:00 2001 From: sperber Date: Wed, 6 Mar 2002 08:24:32 +0000 Subject: [PATCH] Plug space leak in BIND-LISTEN-ACCEPT-LOOK: Errno handlers for failed connections would accumulate indefinitely. --- scsh/network.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/scsh/network.scm b/scsh/network.scm index fcb4c05..75d2b3b 100644 --- a/scsh/network.scm +++ b/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