Using "same?" in more places.

[factor.git] / basis / sequences / product / product.factor

diff --git a/basis/sequences/product/product.factor b/basis/sequences/product/product.factor
index a3067f09d54062dd538ddbf97dde1c0bb44e759a..1c193a1461a3dc0059c9032242e47ae0fa47544b 100644 (file)
--- a/basis/sequences/product/product.factor
+++ b/basis/sequences/product/product.factor
@@ -42,7 +42,7 @@ M: product-sequence length lengths>> product ;
     [ length 0 <array> ] [ [ length ] map ] bi ;
 
 : end-product-iter? ( ns lengths -- ? )
-    [ last ] bi@ = ;
+    [ last ] same? ;
 
 PRIVATE>