vocabs.loader: vocab-dir should work with private vocabs too.

db4
John Benediktsson 2012-08-10 14:43:59 -07:00
parent b957ad1684
commit 98f4ec7c43
1 changed files with 1 additions and 1 deletions

View File

@ -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