do-redirect ( quot: ( chunk -- ) response -- response )

Vocabulary

http.client.private

Inputs

quot	a quotation with stack effect ( chunk -- )
response	an object

Outputs

response

an object

Definition

USING: accessors http http.client kernel math namespaces ;

IN: http.client.private

:: do-redirect ( quot: ( chunk -- ) response -- response )
    redirects inc redirects get request get redirects>> < [
        request get clone response "location" header
        redirect-url response code>> 307 =
        [ "GET" >>method f >>post-data ] unless
        quot (with-http-request)
    ] [ too-many-redirects ] if ; inline recursive