Implementation note

2010-11-30 21:51:37 -07:00 · 2010-11-30 21:51:37 -07:00 · 998e5bc1ec
commit 998e5bc1ec
parent 4ca1dac51c
1 changed files with 1 additions and 0 deletions
--- a/collects/web-server/http/response.rkt
+++ b/collects/web-server/http/response.rkt
@ -22,6 +22,7 @@
  (output-response/method conn resp #"GET"))

 (define (output-response/method conn resp meth)
+  ; XXX Use chunked encoding for non-terminated responses
  (unless (terminated-response? resp)
    (set-connection-close?! conn #t))
  (output-response-head conn resp)