lazy-lists: fix bug with ltake and nil?

diff --git a/libs/lazy-lists/lists.factor b/libs/lazy-lists/lists.factor
index d78162f660761fb8331c29ed1d6615e633380806..c080b0320316cac56a6ea8c3b59dff66eb05298a 100644 (file)
--- a/libs/lazy-lists/lists.factor
+++ b/libs/lazy-lists/lists.factor
@@ -224,7 +224,11 @@ M: lazy-take cdr ( lazy-take -- cdr )
   lazy-take-cons cdr ltake ;
 
 M: lazy-take nil? ( lazy-take -- bool )
-  lazy-take-n zero? ;
+  dup lazy-take-n zero? [
+    drop t
+  ] [ 
+    lazy-take-cons nil?
+  ] if ;
 
 M: lazy-take list? ( object -- bool )
   drop t ;