diff --git a/extra/advice/advice-docs.factor b/extra/advice/advice-docs.factor index 7b523e9a8c..2c470d04b3 100644 --- a/extra/advice/advice-docs.factor +++ b/extra/advice/advice-docs.factor @@ -1,5 +1,5 @@ IN: advice -USING: help.markup help.syntax tools.annotations words ; +USING: help.markup help.syntax tools.annotations words coroutines ; HELP: make-advised { $values { "word" "a word to annotate in preparation of advising" } } @@ -16,6 +16,11 @@ HELP: advised? { $values { "word" "a word" } { "?" "t or f, indicating if " { $snippet "word" } " is advised" } } { $description "Determines whether or not the given word has any advice on it." } ; +HELP: ad-do-it +{ $values { "input" "an object" } { "output" "an object" } } +{ $description "Calls either the next applicable around advice or the main body, returning back to the point it was called from when finished. This word should only be called from inside advice." } +{ $see-also coyield } ; + ARTICLE: "advice" "Advice" "Advice is a simple way of adding additition functionality to words by adding 'hooks' to a word, which can act before, after, or around the calling of the word." ;