lists: Fix lists

diff --git a/basis/lists/lazy/lazy-docs.factor b/basis/lists/lazy/lazy-docs.factor
index d3827dd85d40703fb4f50f3fa8367034ea12f4ef..f18dba0592de01fb5b26a3a78c790c8538f60ca6 100644 (file)
--- a/basis/lists/lazy/lazy-docs.factor
+++ b/basis/lists/lazy/lazy-docs.factor
@@ -85,7 +85,7 @@ HELP: <memoized-cons>
 
 HELP: lazy-map
 { $values { "list" "a cons object" } { "quot" { $quotation "( obj -- X )" } } { "result" "resulting cons object" } }
-{ $description "Perform a similar functionality to that of the " { $link map } " word, but in a lazy manner. No evaluation of the list elements occurs initially but a " { $link <lazy-map> } " object is returned which conforms to the list protocol. Calling " { $link car } ", " { $link cdr } " or " { $link nil? } " on this will evaluate elements as required." } ;
+{ $description "Perform a similar functionality to that of the " { $link map } " word, but in a lazy manner. No evaluation of the list elements occurs initially but a " { $link <lazy-map-state> } " object is returned which conforms to the list protocol. Calling " { $link car } ", " { $link cdr } " or " { $link nil? } " on this will evaluate elements as required." } ;
 
 HELP: ltake
 { $values { "n" "a non negative integer" } { "list" "a cons object" } { "result" "resulting cons object" } }

diff --git a/basis/lists/lazy/lazy.factor b/basis/lists/lazy/lazy.factor
index 69984803df22466dd525ab0f0cbd2366bf0aa48d..696d49b07fea7a11a5f88b408e53c37d31c71e1f 100644 (file)
--- a/basis/lists/lazy/lazy.factor
+++ b/basis/lists/lazy/lazy.factor
@@ -18,7 +18,7 @@ TUPLE: lazy-cons-state car cdr ;
 
 : lazy-cons ( car cdr -- promise )
     [ T{ promise f f t f } clone ] 2dip
-        [ promise ] bi@ \ lazy-cons-state boa
+        [ <promise> ] bi@ \ lazy-cons-state boa
         >>value ;
 
 M: lazy-cons-state car ( lazy-cons -- car )

diff --git a/basis/lists/lists-docs.factor b/basis/lists/lists-docs.factor
index 876ef9abb61acc96bacf5eb84b797cb8dec59801..c22faa5c0001c2cfeb5fc09b8b867fd8f1baa0b4 100644 (file)
--- a/basis/lists/lists-docs.factor
+++ b/basis/lists/lists-docs.factor
@@ -63,7 +63,7 @@ ARTICLE: "lists-manipulation" "Manipulating lists"
 } ;
 
 HELP: cons
-{ $values { "car" "the head of the list cell" } { "cdr" "the tail of the list cell" } { "cons" list } }
+{ $values { "car" "the head of the list cell" } { "cdr" "the tail of the list cell" } { "cons-state" list } }
 { $description "Constructs a cons cell." } ;
 
 HELP: swons