vocabs.loader: vocab-dir should work with private vocabs too.
parent
b957ad1684
commit
98f4ec7c43
|
@ -42,7 +42,7 @@ M: string vocab-path ( string -- path/f )
|
|||
PRIVATE>
|
||||
|
||||
: vocab-dir ( vocab -- dir )
|
||||
vocab-name H{ { CHAR: . CHAR: / } } substitute ;
|
||||
vocab-name* H{ { CHAR: . CHAR: / } } substitute ;
|
||||
|
||||
: append-vocab-dir ( vocab str/f -- path )
|
||||
[ vocab-name "." split ] dip
|
||||
|
|
Loading…
Reference in New Issue