#;27> (load "/tmp/test.scm") ; loading /tmp/test.scm ... writing went wrong # ((exn (arguments (#)) (message "Maximum number of redirects exceeded") (location send-request)) (http) (redirect-depth-exceeded (uri #))) ----- http-client.scm: (let ((new-uri (header-value 'location (response-headers response)))) (if (or (not (max-redirect-depth)) ; unlimited? (< redirects (max-redirect-depth))) (loop attempts (add1 redirects) (update-request req uri: (uri-relative-to new-uri (request-uri req)))) (http-client-error 'send-request "Maximum number of redirects exceeded" (list req) 'redirect-depth-exceeded 'uri new-uri))))