Using "same?" in more places.

[factor.git] / basis / unicode / collation / collation.factor

diff --git a/basis/unicode/collation/collation.factor b/basis/unicode/collation/collation.factor
index ba89ccecadccc3b431a4ef6ef60f8cc57dc2345c..b66c9be792f71f1ab1b68920aed5bbce4c2e1b69 100644 (file)
--- a/basis/unicode/collation/collation.factor
+++ b/basis/unicode/collation/collation.factor
@@ -134,7 +134,7 @@ PRIVATE>
     [\r
         [ collation-key ] dip\r
         [ [ 0 = not ] trim-tail but-last ] times\r
-    ] curry bi@ = ;\r
+    ] curry same? ;\r
 PRIVATE>\r
 \r
 : primary= ( str1 str2 -- ? )\r