lazy-lists: remove unneeded helper function

diff --git a/contrib/lazy-lists/lists.factor b/contrib/lazy-lists/lists.factor
index d6e7c1627e84b0f50b1cdb0e3f739f7439a3ec64..296a56d6bde9a8f55ed197cf59a7c21a6c8038a6 100644 (file)
--- 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