summaryrefslogtreecommitdiff
path: root/module/web
diff options
context:
space:
mode:
authorAlexandru Cojocaru <xojoc@gmx.com>2013-08-27 15:59:39 +0200
committerMark H Weaver <mhw@netris.org>2013-09-10 01:36:00 -0400
commit9c85fd02218705033f18befafa04d9c8c6b76297 (patch)
tree53cbefc38a212b9c94e1864b6985b3259fee7909 /module/web
parent112fc7c2a554a93a63f4cac1419f644f907431db (diff)
downloadguile-9c85fd02218705033f18befafa04d9c8c6b76297.tar.gz
Fix extend-request to preserve method and meta.
* module/web/client.scm (extend-request): Preserve method and meta.
Diffstat (limited to 'module/web')
-rw-r--r--module/web/client.scm7
1 files changed, 5 insertions, 2 deletions
diff --git a/module/web/client.scm b/module/web/client.scm
index 24132c674..affbac500 100644
--- a/module/web/client.scm
+++ b/module/web/client.scm
@@ -103,11 +103,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))))