Using "same?" in more places.

[factor.git] / extra / math / blas / vectors / vectors.factor

diff --git a/extra/math/blas/vectors/vectors.factor b/extra/math/blas/vectors/vectors.factor
index bd07cfb932d55a57abc6ec1f84da0219a91e62a3..857d8d585e7afd3eaece28fd34eefdf6a32e3821 100644 (file)
--- a/extra/math/blas/vectors/vectors.factor
+++ b/extra/math/blas/vectors/vectors.factor
@@ -111,7 +111,7 @@ PRIVATE>
 
 M: blas-vector-base equal?
     {
-        [ [ length ] bi@ = ]
+        [ [ length ] same? ]
         [ [ = ] 2all? ]
     } 2&& ;