request-url ( url -- url' )

Vocabulary

http.client.private

Inputs

url

an object

Outputs

url'

an object

Definition

USING: kernel present sequences urls ;

IN: http.client.private

: request-url ( url -- url' )
    dup >url dup misparsed-url?
    [ drop dup url? [ present ] when "http://" prepend >url ]
    [ nip ] if ensure-port ;