From 334d0de92ad1db218800b5e2e380a252d656c765 Mon Sep 17 00:00:00 2001 From: Keita Haga Date: Wed, 26 Jan 2011 15:06:35 +0900 Subject: [PATCH] sequences: surround a $example with a $examples to the if-empty word's help --- core/sequences/sequences-docs.factor | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/core/sequences/sequences-docs.factor b/core/sequences/sequences-docs.factor index ea3e4cf4d3..22e1eede41 100644 --- a/core/sequences/sequences-docs.factor +++ b/core/sequences/sequences-docs.factor @@ -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