append-relative-path ( path1 path2 -- path )

Vocabulary

io.pathnames

Inputs

path1	an object
path2	an object

Outputs

path

an object

Definition

USING: kernel sequences ;

IN: io.pathnames

: append-relative-path ( path1 path2 -- path )
    [ trim-tail-separators ] [ trim-head-separators ] bi*
    "/" glue ;