Revert "fix append-path and vocab-dir to use path-separator"

This reverts commit 0f3026b8712816d29143ff49dea807acbf03e0e0.

diff --git a/core/io/pathnames/pathnames.factor b/core/io/pathnames/pathnames.factor
index 5a9c647973569f1f1de01300fcb07e6df14d81e3..b307128efb2287bbd60d9a36ffa7866aac42ab9b 100644 (file)
--- a/core/io/pathnames/pathnames.factor
+++ b/core/io/pathnames/pathnames.factor
@@ -103,7 +103,7 @@ PRIVATE>
         ] }
         [
             [ trim-tail-separators ]
-            [ trim-head-separators ] bi* path-separator glue
+            [ trim-head-separators ] bi* "/" glue
         ]
     } cond ;
 

diff --git a/core/vocabs/loader/loader.factor b/core/vocabs/loader/loader.factor
index 0f2e3f71785d2e4985eee48865e69c70540eed53..2c0f67641d15ef897aa1372b74b2f64dc8949f95 100644 (file)
--- a/core/vocabs/loader/loader.factor
+++ b/core/vocabs/loader/loader.factor
@@ -35,9 +35,7 @@ M: string vocab-path ( string -- path/f )
 PRIVATE>
 
 : vocab-dir ( vocab -- dir )
-    vocab-name
-    os windows? { { CHAR: . CHAR: \\ } } { { CHAR: . CHAR: / } } ?
-    substitute ;
+    vocab-name { { CHAR: . CHAR: / } } substitute ;
 
 : vocab-dir+ ( vocab str/f -- path )
     [ vocab-name "." split ] dip