From 82daad33754d6058464d031ed0622f6a3fc6551c Mon Sep 17 00:00:00 2001
From: James Cash <james.nvc@gmail.com>
Date: Sun, 22 Jun 2008 16:48:00 -0400
Subject: [PATCH] Fixing cons>seq in extra/lists
---
extra/lists/lists.factor | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/extra/lists/lists.factor b/extra/lists/lists.factor
index 613d75c4ae..881d2c39b8 100644
--- 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 ;