basis/vocabs/generated/generated.factor

   1 ! Copyright (C) 2009 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: compiler.units fry kernel vocabs vocabs.parser ;
   4 IN: vocabs.generated
   5
   6 : generate-vocab ( vocab-name quot -- vocab )
   7     [ dup vocab [ ] ] dip '[
   8         [
   9             [
  10                  _ with-current-vocab
  11             ] with-compilation-unit
  12         ] keep
  13     ] ?if ; inline