Fix bootstrap

diff --git a/basis/tools/annotations/annotations-docs.factor b/basis/tools/annotations/annotations-docs.factor
index c88e959b8e9fa1468f0dce1cc22d625c5a5d754a..005f5f7af8408b0e7c6b40364f7e4e84fd1573b4 100644 (file)
--- a/basis/tools/annotations/annotations-docs.factor
+++ b/basis/tools/annotations/annotations-docs.factor
@@ -44,16 +44,6 @@ HELP: annotate-methods
      { "word" word } { "quot" quotation } }
 { $description "Annotates the word -- for generic words, all its methods -- with the quotation." } ;
 
-HELP: entering
-{ $values
-     { "str" string } }
-{ $description "Prints a message and the inputs to the word before the word has been called." } ;
-
-HELP: leaving
-{ $values
-     { "str" string } }
-{ $description "Prints a message and the outputs from a word after a word has been called." } ;
-
 HELP: reset
 { $values
      { "word" word } }
@@ -65,12 +55,6 @@ HELP: watch-vars
      { "word" word } { "vars" "a sequence of symbols" } }
 { $description "Annotates a word definition to print the " { $snippet "vars" } " upon entering the word. This word is useful for debugging." } ;
 
-HELP: word-inputs
-{ $values
-     { "word" word }
-     { "seq" sequence } }
-{ $description "Makes a sequence of the inputs to a word by counting the number of inputs in the stack effect and saving that many items from the datastack." } ;
-
 HELP: add-timing
 { $values { "word" word } }
 { $description "Adds timing code to a word, which records its total running time, including that of words it calls, on every invocation." }

diff --git a/basis/tools/annotations/annotations.factor b/basis/tools/annotations/annotations.factor
index 7bb4711b906f590ca21c5d7086dafd27bbdfcc7e..293a22d2bb95ea8e23a8f3eff39eb85d8b42f0b9 100644 (file)
--- a/basis/tools/annotations/annotations.factor
+++ b/basis/tools/annotations/annotations.factor
@@ -90,11 +90,11 @@ PRIVATE>
         @
     ] ;
 
+PRIVATE>
+
 : watch-vars ( word vars -- )
     dupd '[ [ _ _ ] dip (watch-vars) ] annotate ;
 
-PRIVATE>
-
 GENERIC# annotate-methods 1 ( word quot -- )
 
 M: generic annotate-methods