Handbook Glossary
factorcode.org
append-path-empty ( path1 path2 -- path' )


Vocabulary
io.pathnames.private

Inputs
path1an object
path2an 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 ;