Flushing output after each chunk.

simple.scm

@@ -215,7 +215,8 @@
   (printf "~X" (string-length contents))
   (display "\n")
   (display contents)
-  (display "\n"))
+  (display "\n")
+  (flush-output (response-port (current-response))))
 
 (define (define-page path contents #!key css title doctype headers charset
           (method 'GET) use-session) ;; for define-session-page