new accessors

diff --git a/extra/lists/lazy/lazy.factor b/extra/lists/lazy/lazy.factor
index 6beb6e402d9039c035fa7a669c5239053878aa34..8a1e73928c5e1023af68e07b65049ae893f4d74e 100644 (file)
--- a/extra/lists/lazy/lazy.factor
+++ b/extra/lists/lazy/lazy.factor
@@ -24,7 +24,7 @@ TUPLE: lazy-cons car cdr ;
 : lazy-cons ( car cdr -- promise )
     [ promise ] bi@ \ lazy-cons boa
     T{ promise f f t f } clone
-    [ set-promise-value ] keep ;
+        swap >>value ;
 
 M: lazy-cons car ( lazy-cons -- car )
     car>> force ;