From bd3860ed4364cff389db5593c9b59b1f6c5b41bd Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Tue, 31 Jan 2006 21:17:10 +0000 Subject: [PATCH] avoiding meaning errors svn: r2062 --- collects/web-server/connection-manager.ss | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/collects/web-server/connection-manager.ss b/collects/web-server/connection-manager.ss index 6255d384db..175a2d536b 100644 --- a/collects/web-server/connection-manager.ss +++ b/collects/web-server/connection-manager.ss @@ -34,13 +34,14 @@ ;; kill this connection (define (kill-connection! conn-demned) (cancel-timer! (connection-timer conn-demned)) - (close-output-port (connection-o-port conn-demned)) - (close-input-port (connection-i-port conn-demned)) + (with-handlers ([exn:fail:network? void]) + (close-output-port (connection-o-port conn-demned))) + (with-handlers ([exn:fail:network? void]) + (close-input-port (connection-i-port conn-demned))) (set-connection-close?! conn-demned #t) (custodian-shutdown-all (connection-custodian conn-demned))) ;; adjust-connection-timeout!: connection number -> void ;; change the expiration time for this connection (define (adjust-connection-timeout! conn time) - (reset-timer (connection-timer conn) time)) - ) + (reset-timer (connection-timer conn) time))) \ No newline at end of file