From 9c85fd02218705033f18befafa04d9c8c6b76297 Mon Sep 17 00:00:00 2001 From: Alexandru Cojocaru Date: Tue, 27 Aug 2013 15:59:39 +0200 Subject: [PATCH] Fix extend-request to preserve method and meta. * module/web/client.scm (extend-request): Preserve method and meta. --- module/web/client.scm | 7 +++++-- 1 file 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))))