tjhintz/simple
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Flushing output after each chunk.

Browse Source
This commit is contained in:
Thomas Hintz
2015-04-03 11:28:28 -07:00
parent 1dfd420bac
commit e87ffff5dd
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
simple.scm
View File

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