From ebd92ebf0a62e3e79432a1aa570f4a04d5463fb2 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Sat, 9 Jun 2007 04:49:54 +0000 Subject: [PATCH] Resource usage svn: r6555 --- collects/web-server/private/response.ss | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/web-server/private/response.ss b/collects/web-server/private/response.ss index bf9bede2e6..9dc8d5cfec 100644 --- a/collects/web-server/private/response.ss +++ b/collects/web-server/private/response.ss @@ -212,7 +212,8 @@ (lambda (i-port) (define _ (file-position i-port start)) (define i-port/end (make-limited-input-port i-port end #t)) - (copy-port i-port/end (connection-o-port conn))))))) + (copy-port i-port/end (connection-o-port conn)) + (close-input-port i-port/end)))))) (define ext:output-file (ext:wrap output-file))