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 continuations fry kernel vocabs vocabs.parser ;
   4 IN: vocabs.generated
   5
   6 : generate-vocab ( vocab-name quot -- vocab )
   7     [ dup lookup-vocab [ ] ] dip '[
   8         [
   9             [
  10                 [ _ with-current-vocab ] [ ] [ forget-vocab ] cleanup
  11             ] with-compilation-unit
  12         ] keep
  13     ] ?if ; inline