generic: fix help-lint for make-consult-quot

diff --git a/core/generic/generic-docs.factor b/core/generic/generic-docs.factor
index 19032ffe721fada9b3a7e52edb6732af6f621717..68694eef7beaa0a550126476feaa7a711551e09d 100644 (file)
--- a/core/generic/generic-docs.factor
+++ b/core/generic/generic-docs.factor
@@ -1,6 +1,6 @@
-USING: classes classes.algebra combinators effects generic.hook
+USING: classes classes.algebra combinators effects kernel generic.hook
 generic.math generic.single generic.standard help.markup
-help.syntax math words ;
+help.syntax math quotations words ;
 IN: generic
 
 ARTICLE: "method-order" "Method precedence"
@@ -197,8 +197,8 @@ HELP: no-next-method
 } ;
 
 HELP: make-consult-quot
-! { $values { "consultation" object } { "word" word } { "quot" quotation } { "combination" combination } }
-{ $contract "This generic produces the body quotation that will be used to actually effect a method consultation from the " { $vocab-link "delegate" } "vocabulary." }
+{ $values { "consultation" object } { "word" word } { "quot" quotation } { "combination" combination } { "consult-quot" quotation } }
+{ $contract "This generic produces the body quotation that will be used to actually effect a method consultation from the " { $vocab-link "delegate" } " vocabulary." }
 { $notes "This is already implemented for " { $snippet "standard-combination" } " and " { $snippet "hook-combination" } ", and thus only needs to be specialized if you are implementing " { $snippet "CONSULT:" } " for a different kind of combination." }
 { $heading "Reasoning" }
 "For standard method combinations, this calls the quotation to obtain the consulted object, and then executes the generic word, which naturally dispatches against the object on the stack. This is not sufficient for hook combinations, which must have the generic word executed with a variable bound to the result of the quotation. This generic is what allows for specializing the behavior of the methods that " { $snippet "CONSULT:" } " creates." ;