qualified would fail if vocab wasn't loaded

db4
Slava Pestov 2008-05-13 23:36:27 -05:00
parent 47f1c31261
commit c7c1882b08
1 changed files with 3 additions and 3 deletions

View File

@ -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