lazy lists accessors

2008-09-02 01:55:05 -05:00 · 2008-09-02 01:55:05 -05:00 · 457dbc33d0
parent c7e7f4f8b4
commit 457dbc33d0
1 changed files with 1 additions and 1 deletions
--- 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 )