Remove the set-word-xt because nobody calls it anymore, and now that we have code GC it is dangerous
parent
39d363f265
commit
9b71d0607a
|
@ -128,5 +128,4 @@ $terpri
|
|||
{ $subsection set-word-def }
|
||||
"A lower-level facility for inspecting the machine code address of a word:"
|
||||
{ $subsection word-xt }
|
||||
{ $subsection set-word-xt }
|
||||
{ $subsection update-xt } ;
|
||||
|
|
|
@ -52,9 +52,6 @@ M: symbol definer drop \ SYMBOL: ;
|
|||
GENERIC: word-xt ( word -- xt )
|
||||
M: word word-xt 7 integer-slot ;
|
||||
|
||||
GENERIC: set-word-xt ( xt word -- )
|
||||
M: word set-word-xt 7 set-integer-slot ;
|
||||
|
||||
SYMBOL: vocabularies
|
||||
|
||||
: vocab ( name -- vocab ) vocabularies get hash ;
|
||||
|
|
|
@ -70,12 +70,6 @@ HELP: word-xt
|
|||
{ $values { "word" "a word" } { "xt" "an execution token integer" } }
|
||||
{ $description "Outputs the machine code address of the word's definition." } ;
|
||||
|
||||
HELP: set-word-xt
|
||||
{ $values { "xt" "an execution token integer" } { "word" "a word" } }
|
||||
{ $description "Sets the machine code address of the word's definition." }
|
||||
{ $warning "This word is unsafe. Specifying an invalid address can corrupt memory and crash the runtime." }
|
||||
{ $notes "This word is used by the compiler." } ;
|
||||
|
||||
HELP: uses
|
||||
{ $values { "word" "a word" } { "seq" "a sequence of words" } }
|
||||
{ $description "Outputs a sequence of words directory called by the given word." }
|
||||
|
|
Loading…
Reference in New Issue