vocabs.parser: if bootstrap fails to load a vocab in interactive use list, don't fep

db4
Slava Pestov 2009-06-05 17:33:00 -05:00
parent 440b464ec1
commit 1e449c70f6
1 changed files with 4 additions and 1 deletions

View File

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