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

core/io/pathnames/pathnames.factor

@@ -103,7 +103,7 @@ PRIVATE>
         ] }
         [
             [ trim-tail-separators ]
-            [ trim-head-separators ] bi* "/" glue
+            [ trim-head-separators ] bi* path-separator glue
         ]
     } cond ;
 

core/vocabs/loader/loader.factor

@@ -35,7 +35,9 @@ M: string vocab-path ( string -- path/f )
 PRIVATE>
 
 : vocab-dir ( vocab -- dir )
-    vocab-name { { CHAR: . CHAR: / } } substitute ;
+    vocab-name
+    os windows? { { CHAR: . CHAR: \\ } } { { CHAR: . CHAR: / } } ?
+    substitute ;
 
 : vocab-dir+ ( vocab str/f -- path )
     [ vocab-name "." split ] dip