io.pathnames: fix separator when appending paths in Windows

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