Using "same?" in more places.

[factor.git] / core / sequences / sequences.factor

diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor
index 08a475001a7696646c465a506f9382a374bd7412..67e444030389c96c28e6dff0120276728254f4de 100644 (file)
--- a/core/sequences/sequences.factor
+++ b/core/sequences/sequences.factor
@@ -623,7 +623,7 @@ M: sequence <=>
     [ 2nth-unsafe <=> ] [ [ length ] compare nip ] if ;
 
 : sequence= ( seq1 seq2 -- ? )
-    2dup [ length ] bi@ =
+    2dup [ length ] same?
     [ mismatch not ] [ 2drop f ] if ; inline
 
 ERROR: assert-sequence got expected ;