words: removing unused "constructor-word".

diff --git a/core/words/words-docs.factor b/core/words/words-docs.factor
index 774de4d22b9ee623d9f4b4dc6bc40c4fa24c8fcf..00860f03a0eeff1abf0f6e68315a7e1339046a48 100644 (file)
--- a/core/words/words-docs.factor
+++ b/core/words/words-docs.factor
@@ -367,12 +367,6 @@ HELP: create-word
 { $description "Creates a new word. If the vocabulary already contains a word with the requested name, outputs the existing word. The vocabulary must exist already; if it does not, you must call " { $link create-vocab } " first." }
 { $notes "This word must be called from inside " { $link with-compilation-unit } ". Parsing words should call " { $link create-word-in } " instead of this word." } ;
 
-HELP: constructor-word
-{ $values { "name" string } { "vocab" string } { "word" word } }
-{ $description "Creates a new word, surrounding " { $snippet "name" } " in angle brackets." }
-{ $notes "This word must be called from inside " { $link with-compilation-unit } "." }
-{ $examples { $example "USING: compiler.units prettyprint words ;" "[ \"salmon\" \"scratchpad\" constructor-word ] with-compilation-unit ." "<salmon>" } } ;
-
 { POSTPONE: FORGET: forget forget* forget-vocab } related-words
 
 HELP: target-word

diff --git a/core/words/words.factor b/core/words/words.factor
index 0464349785e844d2edf7cc1b38f33fd415b26a71..3365dc62d9805ea704d238a9a0c00e3d9ce6948a 100644 (file)
--- a/core/words/words.factor
+++ b/core/words/words.factor
@@ -227,9 +227,6 @@ ERROR: bad-create name vocab ;
         dup changed-definition
     ] if* ;
 
-: constructor-word ( name vocab -- word )
-    [ "<" ">" surround ] dip create-word ;
-
 PREDICATE: parsing-word < word "parsing" word-prop ;
 
 M: parsing-word definer drop \ SYNTAX: \ ; ;