Flushing output after each chunk.

2015-04-03 11:28:28 -07:00
parent 1dfd420bac
commit e87ffff5dd
1 changed files with 2 additions and 1 deletions
--- a/simple.scm
+++ b/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