sequences: surround a $example with a $examples to the if-empty word's help

db4
Keita Haga 2011-01-26 15:06:35 +09:00
parent 629ea1163b
commit 334d0de92a
1 changed files with 6 additions and 4 deletions

View File

@ -83,10 +83,12 @@ HELP: empty?
HELP: if-empty
{ $values { "seq" sequence } { "quot1" quotation } { "quot2" quotation } }
{ $description "Makes an implicit check if the sequence is empty. An empty sequence is dropped and " { $snippet "quot1" } " is called. Otherwise, if the sequence has any elements, " { $snippet "quot2" } " is called on it." }
{ $example
"USING: kernel prettyprint sequences ;"
"{ 1 2 3 } [ \"empty sequence\" ] [ sum ] if-empty ."
"6"
{ $examples
{ $example
"USING: kernel prettyprint sequences ;"
"{ 1 2 3 } [ \"empty sequence\" ] [ sum ] if-empty ."
"6"
}
} ;
HELP: when-empty