diff options
| author | Peter Bex <peter@more-magic.net> | 2018-10-19 10:29:07 +0200 |
|---|---|---|
| committer | Peter Bex <peter@more-magic.net> | 2018-10-19 10:30:14 +0200 |
| commit | a67582286953ff49aecfe2f405f2d4279ba4de2b (patch) | |
| tree | dbadd8239aac00dc2417b9f6148697561d06c9ac /http-client.scm | |
| parent | 6cb4e437680c8095d4de922e77fdc32b09ccd08d (diff) | |
| download | http-client-a67582286953ff49aecfe2f405f2d4279ba4de2b.tar.gz | |
Expose response object in redirect depth exceeded condition1.1
Thanks to Norman Gray for pointing out that the response was missing
from the condition object.
Diffstat (limited to 'http-client.scm')
| -rw-r--r-- | http-client.scm | 4 |
1 files 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) |