steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

docs: fix docs for help-lint

vm-warnings
Doug Coleman 2018-07-07 08:24:05 -05:00
parent 7da7a1d70e
commit 79db3ca594
2 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/cocoa/messages/messages-docs.factor
View File

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

6
extra/help/lint/coverage/coverage-tests.factor
View File

@ -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( -- )
]] eval( -- )