with-current-vocab ( name quot -- )


Vocabulary
vocabs.parser

Inputs
namean object
quotan object


Outputs
None

Definition
USING: kernel namespaces ;

IN: vocabs.parser

: with-current-vocab ( name quot -- )
manifest get clone manifest
[ [ set-current-vocab ] dip call ] with-variable ; inline