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

math.combinators: fix help-lint warnings I introduced...

db4
John Benediktsson 2013-05-07 08:18:20 -07:00
parent 05f6304087
commit 66b2b3c044
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/math/combinators/combinators-docs.factor
View File

@ -2,16 +2,16 @@ USING: help.markup help.syntax math ;
IN: math.combinators
HELP: when-negative
{ $values { "n" real } { "true" "the first quotation of an " { $link if-negative } } }
{ $description "When " { $snippet "n" } " is negative, calls the " { $snippet "true" } " quotation with " { $snippet "n" } "." }
{ $values { "n" real } { "quot" "the first quotation of an " { $link if-negative } } }
{ $description "When " { $snippet "n" } " is negative, calls the quotation with " { $snippet "n" } "." }
{ $examples
{ $example "USING: math math.combinators prettyprint ;" "-3 [ 1 + ] when-negative ." "-2" }
{ $example "USING: math math.combinators prettyprint ;" "3.5 [ 1 + ] when-negative ." "3.5" }
} ;
HELP: when-positive
{ $values { "n" real } { "true" "the first quotation of an " { $link if-positive } } }
{ $description "When " { $snippet "n" } " is positive, calls the " { $snippet "true" } " quotation with " { $snippet "n" } "." }
{ $values { "n" real } { "quot" "the first quotation of an " { $link if-positive } } }
{ $description "When " { $snippet "n" } " is positive, calls the quotation with " { $snippet "n" } "." }
{ $examples
{ $example "USING: math math.combinators prettyprint ;" "1.5 [ 1 + ] when-positive ." "2.5" }
{ $example "USING: math math.combinators prettyprint ;" "-1 [ 1 + ] when-positive ." "-1" }