Some places where we use-words / unuse-words could leave the manifest
with extra-words if not cleaned up properly.
: unuse-words ( assoc -- )
<extra-words> qualified-vocabs remove! drop ;
: unuse-words ( assoc -- )
<extra-words> qualified-vocabs remove! drop ;
+: with-words ( assoc quot -- )
+ [ use-words ] prepose [ ] pick '[ _ unuse-words ] cleanup ; inline
+
TUPLE: ambiguous-use-error name words ;
: <ambiguous-use-error> ( name words -- error restarts )
TUPLE: ambiguous-use-error name words ;
: <ambiguous-use-error> ( name words -- error restarts )