lazy-lists: remove unneeded helper function

2006-10-04 23:17:21 +00:00 · 2006-10-04 23:17:21 +00:00 · 32d3baed21
parent 9f4eab14bd
commit 32d3baed21
1 changed files with 0 additions and 7 deletions
--- a/contrib/lazy-lists/lists.factor
+++ b/contrib/lazy-lists/lists.factor
@ -290,13 +290,6 @@ M: lazy-zip nil? ( lazy-zip -- bool )
 : lcartesian-product ( list1 list2 -- result ) 
  swap [ swap [ 2array ] lmap-with ] lmap-with lconcat ;

-: (lcartesian-product*) ( car cdr -- result )
-  dup nil? [ 
-    drop
-  ] [
-    car lcartesian-product 
-  ] if ;
-
 : lcartesian-product* ( lists -- result )
  dup nil? [
    drop nil