gemini-redirect ( status meta body/f -- status' meta' body'/f )

Vocabulary

gemini.private

Inputs

status	an object
meta	an object
body/f	an object

Outputs

status'	an object
meta'	an object
body'/f	an object

Definition

USING: gemini kernel math namespaces ;

IN: gemini.private

: gemini-redirect
    ( status meta body/f -- status' meta' body'/f )
    redirects inc redirects get max-redirects get <
    [ drop nip gemini-request ] [ too-many-redirects ] if ;