|
USING: kernel sequences assocs parser vocabs namespaces
|
|
vocabs.loader ;
|
|
IN: qualified
|
|
|
|
: define-qualified ( vocab-name -- )
|
|
dup require
|
|
dup vocab-words swap CHAR: : suffix
|
|
[ -rot >r append r> ] curry assoc-map
|
|
use get push ;
|
|
|
|
|
|
: QUALIFIED:
|
|
scan define-qualified ; parsing
|