derive-port ( url base -- url' )

Vocabulary

urls.private

Inputs

url	an object
base	an object

Outputs

url'

an object

Definition

USING: accessors kernel urls ;

IN: urls.private

: derive-port ( url base -- url' )
    over relative-url? [ [ port>> ] either? ] [ drop port>> ] if
    ;