url-port ( url -- port/f )

Vocabulary

urls.private

Inputs

url

an object

Outputs

port/f

an object

Definition

USING: accessors kernel protocols ;

IN: urls.private

: url-port ( url -- port/f )
    [ port>> ] [ protocol>> lookup-protocol-port ] bi over =
    [ drop f ] when ;