]> gitweb.factorcode.org Git - factor.git/commitdiff
sequences.product: fix help-lint for stack effect changes.
authorJohn Benediktsson <mrjbq7@gmail.com>
Sun, 25 Sep 2011 04:04:44 +0000 (21:04 -0700)
committerJohn Benediktsson <mrjbq7@gmail.com>
Sun, 25 Sep 2011 04:07:11 +0000 (21:07 -0700)
basis/sequences/product/product-docs.factor

index 06c99ab806f7299b3123ee541d489193877210f2..ac2608981459e40fc029715605717958455d46f5 100644 (file)
@@ -40,20 +40,20 @@ HELP: <product-sequence>
 { product-sequence <product-sequence> } related-words
 
 HELP: product-map
-{ $values { "sequences" sequence } { "quot" { $quotation "( sequence -- value )" } } { "sequence" sequence } }
+{ $values { "sequences" sequence } { "quot" { $quotation "( ... seq -- ... value )" } } { "sequence" sequence } }
 { $description "Calls " { $snippet "quot" } " for every element of the cartesian product of " { $snippet "sequences" } " and collects the results from " { $snippet "quot" } " into an output sequence." }
 { $notes { $snippet "[ ... ] product-map" } " is equivalent to, but more efficient than, " { $snippet "<product-sequence> [ ... ] map" } "." } ;
 
 HELP: product-map-as
-{ $values { "sequences" sequence } { "quot" { $quotation "( sequence -- value )" } } { "exemplar" sequence } { "sequence" sequence } }
+{ $values { "sequences" sequence } { "quot" { $quotation "( ... seq -- ... value )" } } { "exemplar" sequence } { "sequence" sequence } }
 { $description "Calls " { $snippet "quot" } " for every element of the cartesian product of " { $snippet "sequences" } " and collects the results from " { $snippet "quot" } " into an output sequence the same type as the " { $snippet "exemplar" } " sequence." } ;
 
 HELP: product-map>assoc
-{ $values { "sequences" sequence } { "quot" { $quotation "( sequence -- key value )" } } { "exemplar" assoc } { "assoc" assoc } }
+{ $values { "sequences" sequence } { "quot" { $quotation "( ... seq -- ... key value )" } } { "exemplar" assoc } { "assoc" assoc } }
 { $description "Calls " { $snippet "quot" } " for every element of the cartesian product of " { $snippet "sequences" } " and collects the results from " { $snippet "quot" } " into an output assoc." } ;
 
 HELP: product-each
-{ $values { "sequences" sequence } { "quot" { $quotation "( sequence -- )" } } }
+{ $values { "sequences" sequence } { "quot" { $quotation "( ... seq -- ... )" } } }
 { $description "Calls " { $snippet "quot" } " for every element of the cartesian product of " { $snippet "sequences" } "." }
 { $notes { $snippet "[ ... ] product-each" } " is equivalent to, but more efficient than, " { $snippet "<product-sequence> [ ... ] each" } "." } ;