io.pathnames: Add a useful word 3append-path

2018-07-04 18:29:17 -05:00 · 2018-07-04 18:29:17 -05:00 · 147d13ed19
parent b1e179106b
commit 147d13ed19
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