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

diff --git a/core/io/pathnames/pathnames.factor b/core/io/pathnames/pathnames.factor
index 2d382e49d18342fb76cd6b7ccdba2d0beef4cd6c..29e683a48d2d09cfe105459d151bdd64fc4d241c 100644 (file)
--- 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