diff options
author | Alexandru Cojocaru <xojoc@gmx.com> | 2013-08-27 15:59:39 +0200 |
---|---|---|
committer | Mark H Weaver <mhw@netris.org> | 2013-09-10 01:36:00 -0400 |
commit | 9c85fd02218705033f18befafa04d9c8c6b76297 (patch) | |
tree | 53cbefc38a212b9c94e1864b6985b3259fee7909 /module/web | |
parent | 112fc7c2a554a93a63f4cac1419f644f907431db (diff) | |
download | guile-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.scm | 7 |
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)))) |