qualified would fail if vocab wasn't loaded
parent
47f1c31261
commit
c7c1882b08
|
@ -23,7 +23,7 @@ IN: qualified
|
|||
] curry map zip ;
|
||||
|
||||
: partial-vocab-ignoring ( words name -- assoc )
|
||||
[ vocab-words keys swap diff ] keep partial-vocab ;
|
||||
[ load-vocab vocab-words keys swap diff ] keep partial-vocab ;
|
||||
|
||||
: EXCLUDE:
|
||||
#! Syntax: EXCLUDE: vocab => words ... ;
|
||||
|
@ -32,12 +32,12 @@ IN: qualified
|
|||
|
||||
: FROM:
|
||||
#! Syntax: FROM: vocab => words... ;
|
||||
scan expect=>
|
||||
scan dup load-vocab drop expect=>
|
||||
";" parse-tokens swap partial-vocab use get push ; parsing
|
||||
|
||||
: RENAME:
|
||||
#! Syntax: RENAME: word vocab => newname
|
||||
scan scan lookup [ "No such word" throw ] unless*
|
||||
scan scan dup load-vocab drop lookup [ "No such word" throw ] unless*
|
||||
expect=>
|
||||
scan associate use get push ; parsing
|
||||
|
||||
|
|
Loading…
Reference in New Issue