Using "same?" in more places.

[factor.git] / basis / cocoa / plists / plists-tests.factor

diff --git a/basis/cocoa/plists/plists-tests.factor b/basis/cocoa/plists/plists-tests.factor
index e5d7dfd2399403a09201b54bff1cb3625bae6c2c..dab09e0c80a0755c29192ff57050de3ea9a71b15 100644 (file)
--- a/basis/cocoa/plists/plists-tests.factor
+++ b/basis/cocoa/plists/plists-tests.factor
@@ -15,13 +15,13 @@ IN: cocoa.plists.tests
             H{ { "DeviceUsagePage" 1 } { "DeviceUsage" 5 } }
             H{ { "DeviceUsagePage" 1 } { "DeviceUsage" 6 } }
         } [ >cf &CFRelease ] [ >cf &CFRelease ] bi
-        [ plist> ] bi@ =
+        [ plist> ] same?
     ] unit-test
 
     [ t ] [
         { "DeviceUsagePage" 1 }
         [ >cf &CFRelease ] [ >cf &CFRelease ] bi
-        [ plist> ] bi@ =
+        [ plist> ] same?
     ] unit-test
 
     [ V{ "DeviceUsagePage" "Yes" } ] [