From f3abd0c53dd3fb4e3664d2bd6e6bfceb2cfd03b6 Mon Sep 17 00:00:00 2001 From: "chris.double" Date: Thu, 5 Oct 2006 10:35:14 +0000 Subject: [PATCH] lazy-lists: fix help example --- contrib/lazy-lists/lists.facts | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/contrib/lazy-lists/lists.facts b/contrib/lazy-lists/lists.facts index 83582e2f78..69bf9697b9 100644 --- a/contrib/lazy-lists/lists.facts +++ b/contrib/lazy-lists/lists.facts @@ -182,7 +182,7 @@ HELP: lcomp* { $values { "list" "a list of lists" } { "guards" "a sequence of quotations with stack effect ( seq -- bool )" } { "quot" "a quotation with stack effect ( seq -- X )" } { "list" "the resulting list" } } { $description "Get the cartesian product of the lists in 'list', filter it by applying each guard quotation to it and call 'quot' call with each element from the remaining cartesian product items on the stack, the result of which is returned in the final 'list'." } { $examples - { $example "{ 1 2 3 } seq>list { 4 5 6 } seq>list 2list { [ first odd? ] } [ + ] lcomp*" } + { $example "{ 1 2 3 } >list { 4 5 6 } >list 2list { [ first odd? ] } [ first2 + ] lcomp*" } } { $see-also leach lmap lmap-with lconcat ltake lsubset lfrom-by lcartesian-product lcomp } ;