summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThomas Hintz <t@thintz.com>2015-04-03 11:28:28 -0700
committerThomas Hintz <t@thintz.com>2015-04-03 11:28:28 -0700
commite87ffff5dd5a409c6a53195c269aa9ffe7ad71a4 (patch)
tree704f48d2e09090d68624fca1cc5939d8f9865a9e
parent1dfd420bac3487d1f57f65d5344ae418d196ddad (diff)
downloadsimple-e87ffff5dd5a409c6a53195c269aa9ffe7ad71a4.tar.gz
Flushing output after each chunk.
-rw-r--r--simple.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/simple.scm b/simple.scm
index dad662f..704f07a 100644
--- 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