steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/qualified/qualified.factor
View File

@ -23,7 +23,7 @@ IN: qualified
] curry map zip ; ] curry map zip ;
: partial-vocab-ignoring ( words name -- assoc ) : 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: : EXCLUDE:
#! Syntax: EXCLUDE: vocab => words ... ; #! Syntax: EXCLUDE: vocab => words ... ;
@ -32,12 +32,12 @@ IN: qualified
: FROM: : FROM:
#! Syntax: FROM: vocab => words... ; #! Syntax: FROM: vocab => words... ;
scan expect=> scan dup load-vocab drop expect=>
";" parse-tokens swap partial-vocab use get push ; parsing ";" parse-tokens swap partial-vocab use get push ; parsing
: RENAME: : RENAME:
#! Syntax: RENAME: word vocab => newname #! 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=> expect=>
scan associate use get push ; parsing scan associate use get push ; parsing