io.pathnames: Add 3append-path.

2017-09-14 23:08:10 -05:00 · 2017-09-14 23:08:10 -05:00 · 6dc30e953e
parent b8f9b6f8db
commit 6dc30e953e
1 changed files with 3 additions and 0 deletions
--- a/core/io/pathnames/pathnames.factor
+++ b/core/io/pathnames/pathnames.factor
@ -111,6 +111,9 @@ PRIVATE>
 : prepend-path ( path1 path2 -- path )
    swap append-path ; inline

+: 3append-path ( path chunk1 chunk2 -- path' )
+    [ append-path ] dip append-path ; inline
+
 : file-name ( path -- string )
    dup root-directory? [
        trim-tail-separators