steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

db4
Joe Groff 2010-02-16 18:40:40 -08:00
parent 10bc247ed4
commit 4a182cfbad
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/io/pathnames/pathnames.factor
View File

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

4
core/vocabs/loader/loader.factor
View File

@ -35,7 +35,9 @@ M: string vocab-path ( string -- path/f )
PRIVATE> PRIVATE>
: vocab-dir ( vocab -- dir ) : 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-dir+ ( vocab str/f -- path )
[ vocab-name "." split ] dip [ vocab-name "." split ] dip