vocabs.loader: make vocab-dir+ use path-separator too

db4
Joe Groff 2010-02-16 19:29:42 -08:00
parent 6ac33f6dea
commit 27cfeec43a
1 changed files with 1 additions and 1 deletions
core/vocabs/loader

View File

@ -42,7 +42,7 @@ PRIVATE>
: vocab-dir+ ( vocab str/f -- path )
[ vocab-name "." split ] dip
[ [ dup last ] dip append suffix ] when*
"/" join ;
path-separator join ;
: find-vocab-root ( vocab -- path/f )
vocab-name dup root-cache get at