vocabs.loader: make vocab-dir+ use path-separator too
parent
6ac33f6dea
commit
27cfeec43a
|
@ -42,7 +42,7 @@ PRIVATE>
|
||||||
: vocab-dir+ ( vocab str/f -- path )
|
: vocab-dir+ ( vocab str/f -- path )
|
||||||
[ vocab-name "." split ] dip
|
[ vocab-name "." split ] dip
|
||||||
[ [ dup last ] dip append suffix ] when*
|
[ [ dup last ] dip append suffix ] when*
|
||||||
"/" join ;
|
path-separator join ;
|
||||||
|
|
||||||
: find-vocab-root ( vocab -- path/f )
|
: find-vocab-root ( vocab -- path/f )
|
||||||
vocab-name dup root-cache get at
|
vocab-name dup root-cache get at
|
||||||
|
|
Loading…
Reference in New Issue