extra/qualified/qualified.factor

   1 USING: kernel sequences assocs parser vocabs namespaces
   2 vocabs.loader ;
   3 IN: qualified
   4
   5 : define-qualified ( vocab-name -- )
   6     dup require
   7     dup vocab-words swap CHAR: : add
   8     [ -rot >r append r> ] curry assoc-map
   9     use get push ;
  10
  11
  12 : QUALIFIED:
  13     scan define-qualified ; parsing