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 ;
|
||||
|
||||
: 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 ;
|
||||
|
||||
|
|
Loading…
Reference in New Issue