<custom-redirect> ( url response -- response' )

Vocabulary

http.server.redirection

Inputs

url	an object
response	an object

Outputs

response'

an object

Definition

USING: http kernel logging urls ;

IN: http.server.redirection

: <custom-redirect> ( url response -- response' )
    2 \ <custom-redirect> \ DEBUG log-stack swap dup url?
    [ relative-to-request ] when "location" set-header ;