vocabs.hierarchy: fix load-all
parent
fde421a880
commit
7734bd9bcd
|
@ -108,8 +108,8 @@ PRIVATE>
|
||||||
|
|
||||||
: (load) ( prefix -- failures )
|
: (load) ( prefix -- failures )
|
||||||
[ child-vocabs-recursive no-roots no-prefixes ]
|
[ child-vocabs-recursive no-roots no-prefixes ]
|
||||||
[ dup find-vocab-root [ >vocab-link ] [ drop f ] if ] bi
|
[ dup find-vocab-root [ >vocab-link prefix ] [ drop ] if ] bi
|
||||||
prefix filter-unportable
|
filter-unportable
|
||||||
require-all ;
|
require-all ;
|
||||||
|
|
||||||
: load ( prefix -- )
|
: load ( prefix -- )
|
||||||
|
|
Loading…
Reference in New Issue