From b477c432932784e9bb8f62d804b9135ce2c694db Mon Sep 17 00:00:00 2001
From: masweeney <mark-sweeney@outlook.com>
Date: Tue, 23 Aug 2016 06:40:35 -0400
Subject: [PATCH] io.pathnames: fix separator when appending paths in Windows

---
 core/io/pathnames/pathnames.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/core/io/pathnames/pathnames.factor b/core/io/pathnames/pathnames.factor
index 2d382e49d1..5fe3dbf16c 100644
--- a/core/io/pathnames/pathnames.factor
+++ b/core/io/pathnames/pathnames.factor
@@ -89,7 +89,7 @@ PRIVATE>
 
 : append-relative-path ( path1 path2 -- path )
     [ trim-tail-separators ]
-    [ trim-head-separators ] bi* "/" glue ;
+    [ trim-head-separators ] bi* path-separator glue ;
 
 : append-path ( path1 path2 -- path )
     {