[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 01/01: Web server and client use suspendable ports
From: |
Andy Wingo |
Subject: |
[Guile-commits] 01/01: Web server and client use suspendable ports |
Date: |
Wed, 8 Feb 2017 09:20:04 -0500 (EST) |
wingo pushed a commit to branch master
in repository guile.
commit 710ebfddc6845237ada24300940967ebb6ae38c1
Author: Andy Wingo <address@hidden>
Date: Wed Feb 8 15:14:49 2017 +0100
Web server and client use suspendable ports
* module/web/request.scm (write-request):
* module/web/response.scm (write-response): Use put-string instead of
display.
---
module/web/request.scm | 3 ++-
module/web/response.scm | 3 ++-
2 files changed, 4 insertions(+), 2 deletions(-)
diff --git a/module/web/request.scm b/module/web/request.scm
index 0a206cf..c9f1dc1 100644
--- a/module/web/request.scm
+++ b/module/web/request.scm
@@ -22,6 +22,7 @@
(define-module (web request)
#:use-module (rnrs bytevectors)
#:use-module (ice-9 binary-ports)
+ #:use-module (ice-9 textual-ports)
#:use-module (ice-9 rdelim)
#:use-module (srfi srfi-9)
#:use-module (web uri)
@@ -214,7 +215,7 @@ on PORT, perhaps using some transfer encoding."
(write-request-line (request-method r) (request-uri r)
(request-version r) port)
(write-headers (request-headers r) port)
- (display "\r\n" port)
+ (put-string port "\r\n")
(if (eq? port (request-port r))
r
(make-request (request-method r) (request-uri r) (request-version r)
diff --git a/module/web/response.scm b/module/web/response.scm
index 614abcd..06e1c6d 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)