steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

io.pathnames: Add 3append-path.

modern-harvey2
Doug Coleman 2017-09-14 23:08:10 -05:00
parent b8f9b6f8db
commit 6dc30e953e
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
core/io/pathnames/pathnames.factor
View File

@ -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