From 457dbc33d0a4e57ae800ffecca51954b2f36f20e Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Tue, 2 Sep 2008 01:55:05 -0500 Subject: [PATCH] lazy lists accessors --- extra/lists/lazy/lazy.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/extra/lists/lazy/lazy.factor b/extra/lists/lazy/lazy.factor index 8a1e73928c..5854e37702 100644 --- 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 )