Fix help lint for when*,unless*

db4
Doug Coleman 2011-08-23 12:14:33 -07:00
parent bc416b93c8
commit 539d34fd23
1 changed files with 2 additions and 2 deletions

View File

@ -656,14 +656,14 @@ $nl
} ; } ;
HELP: when* HELP: when*
{ $values { "?" "a generalized boolean" } { "true" { $quotation "( cond -- ... )" } } } { $values { "?" "a generalized boolean" } { "true" { $quotation "( ..a ? -- ..a )" } } }
{ $description "Variant of " { $link if* } " with no false quotation." { $description "Variant of " { $link if* } " with no false quotation."
$nl $nl
"The following two lines are equivalent:" "The following two lines are equivalent:"
{ $code "X [ Y ] when*" "X dup [ Y ] [ drop ] if" } } ; { $code "X [ Y ] when*" "X dup [ Y ] [ drop ] if" } } ;
HELP: unless* HELP: unless*
{ $values { "?" "a generalized boolean" } { "false" "a quotation " } } { $values { "?" "a generalized boolean" } { "false" { $quotation "( ..a -- ..a x )" } } { "x" object } }
{ $description "Variant of " { $link if* } " with no true quotation." } { $description "Variant of " { $link if* } " with no true quotation." }
{ $notes { $notes
"The following two lines are equivalent:" "The following two lines are equivalent:"