Using "same?" in more places.

[factor.git] / basis / classes / struct / struct-tests.factor

diff --git a/basis/classes/struct/struct-tests.factor b/basis/classes/struct/struct-tests.factor
index 45373a96ac6fc76b6539d83330ccb55b35b7cc83..dba07661ad209b29d6ac73ebbe3460e2c5ac61e9 100644 (file)
--- a/basis/classes/struct/struct-tests.factor
+++ b/basis/classes/struct/struct-tests.factor
@@ -267,7 +267,7 @@ STRUCT: struct-test-equality-2
     [
         struct-test-equality-1 <struct> 5 >>x
         struct-test-equality-1 malloc-struct &free 5 >>x
-        [ hashcode ] bi@ =
+        [ hashcode ] same?
     ] with-destructors
 ] unit-test