append-path-empty ( path1 path2 -- path' )

Vocabulary

io.pathnames.private

Inputs

path1	an object
path2	an object

Outputs

path'

an object

Definition

USING: combinators io.pathnames kernel sequences ;

IN: io.pathnames.private

: append-path-empty ( path1 path2 -- path' )
    {
        {
            [ dup head.? ]
            [ rest trim-head-separators append-path-empty ]
        }
        { [ dup head..? ] [ drop no-parent-directory ] }
        [ nip ]
    } cond ;