vocabs.parser: adding back unuse-words.
parent
e69d0a7b45
commit
7ffd9db9c9
|
@ -163,8 +163,11 @@ HELP: add-renamed-word
|
|||
|
||||
HELP: use-words
|
||||
{ $values { "assoc" assoc } }
|
||||
{ $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." } ;
|
||||
{ $description "Adds an assoc mapping word names to words to the current manifest." } ;
|
||||
|
||||
HELP: unuse-words
|
||||
{ $values { "assoc" assoc } }
|
||||
{ $description "Removes an assoc mapping word names to words from the current manifest." } ;
|
||||
|
||||
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: } "." } ;
|
||||
|
|
|
@ -170,6 +170,9 @@ TUPLE: rename word vocab words ;
|
|||
: use-words ( assoc -- )
|
||||
<extra-words> qualified-vocabs push ;
|
||||
|
||||
: unuse-words ( assoc -- )
|
||||
<extra-words> qualified-vocabs remove! drop ;
|
||||
|
||||
TUPLE: ambiguous-use-error words ;
|
||||
|
||||
: <ambiguous-use-error> ( words -- error restarts )
|
||||
|
|
Loading…
Reference in New Issue