>From 0d7fab577c878cad2c98d6b257e0a1bec84bc12e Mon Sep 17 00:00:00 2001 From: Alexandru Cojocaru Date: Tue, 27 Aug 2013 15:59:39 +0200 Subject: [PATCH] fix call to build-request * module/web/client.scm (extend-request): pass all the parameters to build-request * module/web/client.scm (sanitize-request): don't allow transfer-coding to be set when content-length is 0 --- module/web/client.scm | 9 ++++++--- 1 files changed, 6 insertions(+), 3 deletions(-) mode change 100644 => 100755 module/web/client.scm diff --git a/module/web/client.scm b/module/web/client.scm old mode 100644 new mode 100755 index 7d5ea49..e7bccd1 --- a/module/web/client.scm +++ b/module/web/client.scm @@ -93,11 +93,14 @@ (loop (cdr addresses)))))))) (define (extend-request r k v . additional) - (let ((r (build-request (request-uri r) #:version (request-version r) + (let ((r (build-request (request-uri r) + #:method (request-method r) + #:version (request-version r) #:headers (assoc-set! (copy-tree (request-headers r)) k v) - #:port (request-port r)))) + #:port (request-port r) + #:meta (request-meta r)))) (if (null? additional) r (apply extend-request r additional)))) @@ -125,7 +128,7 @@ as is the case by default with a request returned by `build-request'." (cond ((not body) (let ((length (request-content-length request))) - (if length + (when length (unless (zero? length) (error "content-length, but no body")) (when (assq 'transfer-encoding (request-headers request)) -- 1.7.9