Fix help lint for when*,unless*
parent
bc416b93c8
commit
539d34fd23
|
@ -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:"
|
||||||
|
|
Loading…
Reference in New Issue