From 32d3baed214cbf07980028bc37acd45e85375737 Mon Sep 17 00:00:00 2001
From: "chris.double" <chris.double@double.co.nz>
Date: Wed, 4 Oct 2006 23:17:21 +0000
Subject: [PATCH] lazy-lists: remove unneeded helper function

---
 contrib/lazy-lists/lists.factor | 7 -------
 1 file changed, 7 deletions(-)

diff --git a/contrib/lazy-lists/lists.factor b/contrib/lazy-lists/lists.factor
index d6e7c1627e..296a56d6bd 100644
--- 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