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

vocabs.parser: adding back unuse-words.

db4
John Benediktsson 2015-06-22 16:32:22 -07:00
parent e69d0a7b45
commit 7ffd9db9c9
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
core/vocabs/parser/parser-docs.factor
View File

@ -163,8 +163,11 @@ HELP: add-renamed-word
HELP: use-words HELP: use-words
{ $values { "assoc" assoc } } { $values { "assoc" assoc } }
{ $description "Adds an assoc mapping word names to words to the current manifest." } { $description "Adds an assoc mapping word names to words to the current manifest." } ;
{ $notes "This word is used by " { $link "locals" } " to implement lexically-scoped names." } ;
HELP: unuse-words
{ $values { "assoc" assoc } }
{ $description "Removes an assoc mapping word names to words from the current manifest." } ;
HELP: ambiguous-use-error HELP: ambiguous-use-error
{ $error-description "Thrown when a word name referenced in source file is available in more than one vocabulary in the manifest. Such cases must be explicitly disambiguated using " { $link POSTPONE: FROM: } ", " { $link POSTPONE: EXCLUDE: } ", " { $link POSTPONE: QUALIFIED: } ", or " { $link POSTPONE: QUALIFIED-WITH: } "." } ; { $error-description "Thrown when a word name referenced in source file is available in more than one vocabulary in the manifest. Such cases must be explicitly disambiguated using " { $link POSTPONE: FROM: } ", " { $link POSTPONE: EXCLUDE: } ", " { $link POSTPONE: QUALIFIED: } ", or " { $link POSTPONE: QUALIFIED-WITH: } "." } ;

3
core/vocabs/parser/parser.factor
View File

@ -170,6 +170,9 @@ TUPLE: rename word vocab words ;
: use-words ( assoc -- ) : use-words ( assoc -- )
<extra-words> qualified-vocabs push ; <extra-words> qualified-vocabs push ;
: unuse-words ( assoc -- )
<extra-words> qualified-vocabs remove! drop ;
TUPLE: ambiguous-use-error words ; TUPLE: ambiguous-use-error words ;
: <ambiguous-use-error> ( words -- error restarts ) : <ambiguous-use-error> ( words -- error restarts )