From a67582286953ff49aecfe2f405f2d4279ba4de2b Mon Sep 17 00:00:00 2001 From: Peter Bex Date: Fri, 19 Oct 2018 10:29:07 +0200 Subject: Expose response object in redirect depth exceeded condition Thanks to Norman Gray for pointing out that the response was missing from the condition object. --- http-client.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/http-client.scm b/http-client.scm index d72ce40..57b485e 100644 --- a/http-client.scm +++ b/http-client.scm @@ -123,7 +123,7 @@ (values (uri-username uri) (uri-password uri))))) (define client-software - (make-parameter (list (list "CHICKEN Scheme HTTP-client" "1.0" #f)))) + (make-parameter (list (list "CHICKEN Scheme HTTP-client" "1.1" #f)))) (define (with-mutex m thunk) @@ -661,7 +661,7 @@ (list (uri->string uri)) 'redirect-depth-exceeded 'uri uri 'new-uri new-uri - 'request req)))) + 'request req 'response response)))) ;; TODO: Test this ((305) ; Use proxy (for this request only) (cleanup! #t) -- cgit v1.2.3