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

diff --git a/doc/handbook/words.facts b/doc/handbook/words.facts
index 3dd37ed5b490b82af625f6ac3b52bcb0fbce3550..4a96a5f01b6afc5628b37ce442afe1ff35998a56 100644 (file)
--- a/doc/handbook/words.facts
+++ b/doc/handbook/words.facts
@@ -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 } ;

diff --git a/library/words.factor b/library/words.factor
index 3aa5c0a2b93b7c442acbca8174e6d88af989852e..8cfde47435143cf2deb305d6cf93d001996ecd8f 100644 (file)
--- a/library/words.factor
+++ b/library/words.factor
@@ -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 ;

diff --git a/library/words.facts b/library/words.facts
index 2d2f71a5c4e5cc6c30e3eb5d9dc5b55c33f09c21..bda92f9101e51d3b9e35a72490ed7092510100d1 100644 (file)
--- a/library/words.facts
+++ b/library/words.facts
@@ -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." }