From 61bdf14f7b68bbdc249cac7b2365f6eac535153c Mon Sep 17 00:00:00 2001
From: "chris.double" <chris.double@double.co.nz>
Date: Wed, 4 Oct 2006 02:36:55 +0000
Subject: [PATCH] lazy-lists: add seq>list

---
 contrib/lazy-lists/lists.factor | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/contrib/lazy-lists/lists.factor b/contrib/lazy-lists/lists.factor
index d1086b9204..c8a82bd41b 100644
--- a/contrib/lazy-lists/lists.factor
+++ b/contrib/lazy-lists/lists.factor
@@ -262,4 +262,7 @@ M: lazy-zip cdr ( lazy-zip -- cdr )
 
 M: lazy-zip nil? ( lazy-zip -- bool )
     drop f ;
-    
\ No newline at end of file
+    
+: seq>list ( seq -- list )
+  reverse nil [ swap cons ] reduce ;
+