new accessors

2008-08-30 21:58:46 -05:00 · 2008-08-30 21:58:46 -05:00 · 14eea72acb
parent 5c19e28fb9
commit 14eea72acb
1 changed files with 1 additions and 1 deletions
--- 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 ;