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

Vocabulary

urls

Inputs

url	an object
addr	an object

Outputs

url

an object

Definition

USING: accessors io.sockets kernel sequences ;

IN: urls

: set-url-addr ( url addr -- url )
    [
        [ host>> ] [ inet6? ] bi [ "[" "]" surround ] when
        >>host
    ] [ port>> >>port ] bi ;