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

Vocabulary
io.pathnames

Definition

USING: kernel sequences ;

IN: io.pathnames

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