vocabs.parser: if bootstrap fails to load a vocab in interactive use list, don't fep
parent
440b464ec1
commit
1e449c70f6
|
@ -127,7 +127,10 @@ TUPLE: no-current-vocab ;
|
||||||
] [ drop ] if ;
|
] [ drop ] if ;
|
||||||
|
|
||||||
: only-use-vocabs ( vocabs -- )
|
: only-use-vocabs ( vocabs -- )
|
||||||
clear-manifest [ vocab ] filter [ use-vocab ] each ;
|
clear-manifest
|
||||||
|
[ vocab ] filter
|
||||||
|
[ vocab source-loaded?>> +done+ eq? ] filter
|
||||||
|
[ use-vocab ] each ;
|
||||||
|
|
||||||
TUPLE: qualified vocab prefix words ;
|
TUPLE: qualified vocab prefix words ;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue