with-vocabulary ( quot suffix -- )


Vocabulary
vocabs.platforms

Inputs
quotan object
suffixan object


Outputs
None

Definition
USING: accessors kernel sequences splitting vocabs.parser ;

IN: vocabs.platforms

: with-vocabulary ( quot suffix -- )
[
[ [ current-vocab name>> ] dip ?tail drop ] [ append ]
bi set-current-vocab call
] [
[ current-vocab name>> ] dip ?tail drop
set-current-vocab
] bi ; inline