lazy-lists: add seq>list

2006-10-04 02:36:55 +00:00 · 2006-10-04 02:36:55 +00:00 · 61bdf14f7b
parent d55304eec6
commit 61bdf14f7b
1 changed files with 4 additions and 1 deletions
--- 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 ;
-    
+    
+: seq>list ( seq -- list )
+  reverse nil [ swap cons ] reduce ;
+