lazy lists accessors

diff --git a/extra/lists/lazy/lazy.factor b/extra/lists/lazy/lazy.factor
index 8a1e73928c5e1023af68e07b65049ae893f4d74e..5854e37702b770d429fa6fbfea3cc16b43ec4c1a 100644 (file)
--- a/extra/lists/lazy/lazy.factor
+++ b/extra/lists/lazy/lazy.factor
@@ -356,7 +356,7 @@ M: lazy-io car ( lazy-io -- car )
         nip
     ] [
         drop dup stream>> over quot>> call
-        swap dupd set-lazy-io-car
+        >>car
     ] if ;
 
 M: lazy-io cdr ( lazy-io -- cdr )