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