Fixing cons>seq in extra/lists

diff --git a/extra/lists/lists.factor b/extra/lists/lists.factor
index 613d75c4aee98812300e591925cafe72ccdc6059..881d2c39b8fea2ebe4bb951e5218bf3a8a77c477 100644 (file)
--- a/extra/lists/lists.factor
+++ b/extra/lists/lists.factor
@@ -98,7 +98,7 @@ M: object nil? drop f ;
     [ lmap>array ] dip like ;
     
 : cons>seq ( cons -- array )    
-    [ dup cons? [ cons>seq ] when ] lmap>array ;
+    [ dup cons? [ cons>seq ] when dup nil? [ drop { } ] when ] lmap>array ;
     
 : list>seq ( list -- array )    
     [ ] lmap>array ;