Fix bootstrap

db4
Slava Pestov 2009-03-06 14:58:52 -06:00
parent 696ac8f835
commit 4749d86e70
2 changed files with 2 additions and 18 deletions

View File

@ -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." }

View File

@ -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