 
 <PRIVATE
 
-: (add-qualified) ( qualified -- )
-    manifest get qualified-vocabs>> push ;
-
 : (from) ( vocab words -- vocab words words' vocab )
     2dup swap load-vocab ;
 

    (from) qualified-words qualified boa ;

: add-qualified ( vocab prefix -- )
    <qualified> (add-qualified) ;

TUPLE: from vocab names words ;


    (from) extract-words from boa ;

: add-words-from ( vocab words -- )
    <from> qualified-vocabs push ;

TUPLE: exclude vocab names words ;

