Fixing cons>seq in extra/lists

2008-06-22 16:48:00 -04:00 · 2008-06-22 16:48:00 -04:00 · 82daad3375
parent a8cd6eb099
commit 82daad3375
1 changed files with 1 additions and 1 deletions
--- 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 ;