io.pathnames: Add 3append-path.
parent
b8f9b6f8db
commit
6dc30e953e
|
@ -111,6 +111,9 @@ PRIVATE>
|
||||||
: prepend-path ( path1 path2 -- path )
|
: prepend-path ( path1 path2 -- path )
|
||||||
swap append-path ; inline
|
swap append-path ; inline
|
||||||
|
|
||||||
|
: 3append-path ( path chunk1 chunk2 -- path' )
|
||||||
|
[ append-path ] dip append-path ; inline
|
||||||
|
|
||||||
: file-name ( path -- string )
|
: file-name ( path -- string )
|
||||||
dup root-directory? [
|
dup root-directory? [
|
||||||
trim-tail-separators
|
trim-tail-separators
|
||||||
|
|
Loading…
Reference in New Issue