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

Remove the set-word-xt because nobody calls it anymore, and now that we have code GC it is dangerous

slava 2006-09-26 22:45:55 +00:00
parent 39d363f265
commit 9b71d0607a
3 changed files with 0 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
doc/handbook/words.facts
View File

@ -128,5 +128,4 @@ $terpri
{ $subsection set-word-def } { $subsection set-word-def }
"A lower-level facility for inspecting the machine code address of a word:" "A lower-level facility for inspecting the machine code address of a word:"
{ $subsection word-xt } { $subsection word-xt }
{ $subsection set-word-xt }
{ $subsection update-xt } ; { $subsection update-xt } ;

3
library/words.factor
View File

@ -52,9 +52,6 @@ M: symbol definer drop \ SYMBOL: ;
GENERIC: word-xt ( word -- xt ) GENERIC: word-xt ( word -- xt )
M: word word-xt 7 integer-slot ; M: word word-xt 7 integer-slot ;
GENERIC: set-word-xt ( xt word -- )
M: word set-word-xt 7 set-integer-slot ;
SYMBOL: vocabularies SYMBOL: vocabularies
: vocab ( name -- vocab ) vocabularies get hash ; : vocab ( name -- vocab ) vocabularies get hash ;

6
library/words.facts
View File

@ -70,12 +70,6 @@ HELP: word-xt
{ $values { "word" "a word" } { "xt" "an execution token integer" } } { $values { "word" "a word" } { "xt" "an execution token integer" } }
{ $description "Outputs the machine code address of the word's definition." } ; { $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 HELP: uses
{ $values { "word" "a word" } { "seq" "a sequence of words" } } { $values { "word" "a word" } { "seq" "a sequence of words" } }
{ $description "Outputs a sequence of words directory called by the given word." } { $description "Outputs a sequence of words directory called by the given word." }