Fix bootstrap
parent
696ac8f835
commit
4749d86e70
|
@ -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." }
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue