generate-vocab ( vocab-name quot -- vocab )


Vocabulary
vocabs.generated

Inputs
vocab-namean object
quotan object


Outputs
vocaban object


Definition
USING: compiler.units continuations kernel vocabs vocabs.parser
;

IN: vocabs.generated

: generate-vocab ( vocab-name quot -- vocab )
[ dup lookup-vocab [ ] ] dip [ with-current-vocab ] curry
[ [ ] [ forget-vocab ] cleanup ] curry
[ with-compilation-unit ] curry [ keep ] curry [ or* ] 2dip
if ; inline