Resource usage

svn: r6555
2007-06-09 04:49:54 +00:00 · 2007-06-09 04:49:54 +00:00 · ebd92ebf0a
commit ebd92ebf0a
parent d42ec59149
1 changed files with 2 additions and 1 deletions
--- 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))