derive-path ( 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-path ( url base -- url' )
    [ path>> ] bi@ swap url-append-path ;