summaryrefslogtreecommitdiff
path: root/module/web/response.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/web/response.scm')
-rw-r--r--module/web/response.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/module/web/response.scm b/module/web/response.scm
index 614abcd55..06e1c6dc1 100644
--- a/module/web/response.scm
+++ b/module/web/response.scm
@@ -22,6 +22,7 @@
(define-module (web response)
#:use-module (rnrs bytevectors)
#:use-module (ice-9 binary-ports)
+ #:use-module (ice-9 textual-ports)
#:use-module (ice-9 rdelim)
#:use-module (ice-9 match)
#:use-module (srfi srfi-9)
@@ -220,7 +221,7 @@ on PORT, perhaps using some transfer encoding."
(write-response-line (response-version r) (response-code r)
(response-reason-phrase r) port)
(write-headers (response-headers r) port)
- (display "\r\n" port)
+ (put-string port "\r\n")
(if (eq? port (response-port r))
r
(make-response (response-version r) (response-code r)