Using "same?" in more places.

[factor.git] / extra / sequences / extras / extras-tests.factor

diff --git a/extra/sequences/extras/extras-tests.factor b/extra/sequences/extras/extras-tests.factor
index 52aff0a3078c791eac3a4c4e3ed6bf0046255586..81f1eec8793b75dcbac35102425795094c6dbe68 100644 (file)
--- a/extra/sequences/extras/extras-tests.factor
+++ b/extra/sequences/extras/extras-tests.factor
@@ -78,5 +78,5 @@ IN: sequences.extras.tests
 { { } } [ "ABC" [ ] { } trim-as ] unit-test
 { "ABC" } [ { 32 65 66 67 32 } [ blank? ] "" trim-as ] unit-test
 
-{ t } [ "ABC" dup [ blank? ] ?trim [ identity-hashcode ] bi@ = ] unit-test
+{ t } [ "ABC" dup [ blank? ] ?trim [ identity-hashcode ] same? ] unit-test
 { "ABC" } [ " ABC " [ blank? ] ?trim ] unit-test