docs: fix docs for help-lint

diff --git a/basis/cocoa/messages/messages-docs.factor b/basis/cocoa/messages/messages-docs.factor
index a0eed26c5bbe7165db184d43c1cfddac79b44d35..422bf5becd959edbc3c2b490a92eae718234ae6e 100644 (file)
--- a/basis/cocoa/messages/messages-docs.factor
+++ b/basis/cocoa/messages/messages-docs.factor
@@ -2,13 +2,13 @@ USING: help.markup help.syntax strings alien ;
 IN: cocoa.messages
 
 HELP: send
-{ $values { "receiver" alien } { "args..." "method arguments" } { "selector" string } { "return..." "value returned by method, if any" } }
+{ $values { "receiver" alien } { "args..." "method arguments" } { "signature" "signature" } { "selector" string } { "return..." "value returned by method, if any" } }
 { $description "Sends an Objective C message named by " { $snippet "selector" } " to " { $snippet "receiver" } ". The arguments must be on the stack in left-to-right order." }
 { $errors "Throws an error if the receiver does not recognize the message, or if the arguments have inappropriate types." }
 { $notes "This word uses a special fast code path if " { $snippet "selector" } " is a literal and the word containing the call to " { $link send } " is compiled." } ;
 
 HELP: super-send
-{ $values { "receiver" alien } { "args..." "method arguments" } { "selector" string } { "return..." "value returned by method, if any" } }
+{ $values { "receiver" alien } { "args..." "method arguments" } { "selector" string } { "signature" "signature" } { "return..." "value returned by method, if any" } }
 { $description "Sends an Objective C message named by " { $snippet "selector" } " to the super class of " { $snippet "receiver" } ". Otherwise behaves identically to " { $link send } "." } ;
 
 HELP: objc-class

diff --git a/extra/help/lint/coverage/coverage-tests.factor b/extra/help/lint/coverage/coverage-tests.factor
index 2c4421a3f398e28e7ddc17c854a7f4d5d17bb702..aa98ac31207d26146fbc0f7ec7ea4a99c991c3dc 100644 (file)
--- a/extra/help/lint/coverage/coverage-tests.factor
+++ b/extra/help/lint/coverage/coverage-tests.factor
@@ -74,7 +74,8 @@ PRIVATE>
 { }
 [
     [[
-        USING: assocs math kernel namespaces help.syntax help.lint help.lint.private ;
+        USING: assocs definitions math kernel namespaces help.syntax
+        help.lint help.lint.private ;
         IN: help.lint.tests
         <<
         : add-stuff ( x y -- z ) + ;
@@ -83,6 +84,7 @@ PRIVATE>
         >>
         H{ } clone lint-failures [ \ add-stuff check-word lint-failures get ] with-variable
         assoc-empty? [ "help-lint is broken" throw ] when
+        << \ add-stuff forget >>
     ]] eval( -- )
 ] unit-test
 
@@ -96,4 +98,4 @@ PRIVATE>
 \ nonexistent forget
 \ defined forget
 >>
-]] eval( -- )
\ No newline at end of file
+]] eval( -- )