extra/modules/util/util.factor

   1 USING: accessors assocs kernel lexer locals namespaces sequences
   2 vocabs vocabs.parser ;
   3 IN: modules.util
   4 SYNTAX: EXPORT-FROM: [let | v [ in get ] |
   5    v vocab words>> ";" parse-tokens
   6    [ load-vocab vocab-words [ clone v >>vocabulary ] assoc-map ] map
   7    assoc-combine update ] ;