set-url-addr ( url addr -- url )

Vocabulary

urls

Inputs

url	an object
addr	an object

Outputs

url

an object

Definition

USING: accessors kernel ;

IN: urls

: set-url-addr ( url addr -- url )
    [ host>> >>host ] [ port>> >>port ] bi ;