1 ! Copyright (C) 2009 Slava Pestov.
2 ! See https://factorcode.org/license.txt for BSD license.
3 USING: compiler.units continuations fry kernel vocabs vocabs.parser ;
6 : generate-vocab ( vocab-name quot -- vocab )
7 [ dup lookup-vocab [ ] ] dip '[
10 [ _ with-current-vocab ] [ ] [ forget-vocab ] cleanup
11 ] with-compilation-unit