From e87ffff5dd5a409c6a53195c269aa9ffe7ad71a4 Mon Sep 17 00:00:00 2001 From: Thomas Hintz Date: Fri, 3 Apr 2015 11:28:28 -0700 Subject: [PATCH] Flushing output after each chunk. --- simple.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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