parent
64a2748280
commit
f26460450e
|
@ -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*
|
||||||
path-separator join ;
|
"/" 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