mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-29 14:30:34 +02:00
Code Activity

Web server and client use suspendable ports

Browse source 
* module/web/request.scm (write-request):
* module/web/response.scm (write-response): Use put-string instead of
  display.
This commit is contained in:
Andy Wingo 2017-02-08 15:14:49 +01:00
parent 09a69dd712
commit 710ebfddc6
2 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
module/web/request.scm
View file

@ -22,6 +22,7 @@
(define-module (web request) (define-module (web request)
#:use-module (rnrs bytevectors) #:use-module (rnrs bytevectors)
#:use-module (ice-9 binary-ports) #:use-module (ice-9 binary-ports)
#:use-module (ice-9 textual-ports)
#:use-module (ice-9 rdelim) #:use-module (ice-9 rdelim)
#:use-module (srfi srfi-9) #:use-module (srfi srfi-9)
#:use-module (web uri) #:use-module (web uri)
@ -214,7 +215,7 @@ on PORT, perhaps using some transfer encoding."
(write-request-line (request-method r) (request-uri r) (write-request-line (request-method r) (request-uri r)
(request-version r) port) (request-version r) port)
(write-headers (request-headers r) port) (write-headers (request-headers r) port)
(display "\r\n" port) (put-string port "\r\n")
(if (eq? port (request-port r)) (if (eq? port (request-port r))
r r
(make-request (request-method r) (request-uri r) (request-version r) (make-request (request-method r) (request-uri r) (request-version r)

3
module/web/response.scm
View file

@ -22,6 +22,7 @@
(define-module (web response) (define-module (web response)
#:use-module (rnrs bytevectors) #:use-module (rnrs bytevectors)
#:use-module (ice-9 binary-ports) #:use-module (ice-9 binary-ports)
#:use-module (ice-9 textual-ports)
#:use-module (ice-9 rdelim) #:use-module (ice-9 rdelim)
#:use-module (ice-9 match) #:use-module (ice-9 match)
#:use-module (srfi srfi-9) #: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) (write-response-line (response-version r) (response-code r)
(response-reason-phrase r) port) (response-reason-phrase r) port)
(write-headers (response-headers r) port) (write-headers (response-headers r) port)
(display "\r\n" port) (put-string port "\r\n")
(if (eq? port (response-port r)) (if (eq? port (response-port r))
r r
(make-response (response-version r) (response-code r) (make-response (response-version r) (response-code r)