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

Fix extend-request to preserve method and meta.

Browse source 
* module/web/client.scm (extend-request): Preserve method and meta.
This commit is contained in:
Alexandru Cojocaru 2013-08-27 15:59:39 +02:00 • committed by Mark H Weaver
parent 112fc7c2a5
commit 9c85fd0221
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
module/web/client.scm
View file

@ -103,11 +103,14 @@
(loop (cdr addresses)))))))) (loop (cdr addresses))))))))
(define (extend-request r k v . additional) (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 #:headers
(assoc-set! (copy-tree (request-headers r)) (assoc-set! (copy-tree (request-headers r))
k v) k v)
#:port (request-port r)))) #:port (request-port r)
#:meta (request-meta r))))
(if (null? additional) (if (null? additional)
r r
(apply extend-request r additional)))) (apply extend-request r additional))))