From ff1d7914e87391b381706b3ab047ad2a77438bb1 Mon Sep 17 00:00:00 2001
From: Jon Harper <jon.harper87@gmail.com>
Date: Tue, 19 Oct 2010 18:03:05 +0200
Subject: [PATCH] cleanup

---
 basis/sequences/product/product.factor | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/basis/sequences/product/product.factor b/basis/sequences/product/product.factor
index 4290085482..487d7b2eca 100644
--- a/basis/sequences/product/product.factor
+++ b/basis/sequences/product/product.factor
@@ -14,7 +14,7 @@ M: product-sequence length lengths>> product ;
 <PRIVATE
 
 : ns ( n lengths -- ns )
-    [ V{ } clone ] 2dip [ /mod swap [ over push ] dip ] each drop ;
+    [ /mod ] map nip ;
 
 : nths ( ns seqs -- nths )
     [ nth ] { } 2map-as ;
@@ -38,10 +38,10 @@ M: product-sequence length lengths>> product ;
     [ 0 over [ 1 + ] change-nth ] dip carry-ns ;
 
 : start-product-iter ( sequences -- ns lengths )
-    [ [ drop 0 ] map ] [ [ length ] map ] bi ;
+    [ length 0 <array> ] [ [ length ] map ] bi ;
 
 : end-product-iter? ( ns lengths -- ? )
-    [ 1 tail* first ] bi@ = ;
+    [ last ] bi@ = ;
 
 PRIVATE>