absolute-url ( url -- url )

Vocabulary

webapps.fjsc

Inputs

url

an object

Outputs

url

an object

Definition

USING: http kernel namespaces sequences ;

IN: webapps.fjsc

: absolute-url ( url -- url )
    "http://" request get "host" header append over "/" head?
    [ "/" append ] unless swap append ;