14 lines
430 B
Factor
14 lines
430 B
Factor
! Copyright (C) 2009 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: compiler.units continuations fry kernel vocabs vocabs.parser ;
|
|
IN: vocabs.generated
|
|
|
|
: generate-vocab ( vocab-name quot -- vocab )
|
|
[ dup lookup-vocab [ ] ] dip '[
|
|
[
|
|
[
|
|
[ _ with-current-vocab ] [ ] [ forget-vocab ] cleanup
|
|
] with-compilation-unit
|
|
] keep
|
|
] ?if ; inline
|