From 6dc30e953e1a53b2dff25b62bb760dc36cb03cf1 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Thu, 14 Sep 2017 23:08:10 -0500
Subject: [PATCH] io.pathnames: Add 3append-path.

---
 core/io/pathnames/pathnames.factor | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/core/io/pathnames/pathnames.factor b/core/io/pathnames/pathnames.factor
index 2d86c2ff6a..b5e317a262 100644
--- 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