equal
deleted
inserted
replaced
97 (self propertiesSize = anObject propertiesSize) ifFalse: [ ^ false ]. |
97 (self propertiesSize = anObject propertiesSize) ifFalse: [ ^ false ]. |
98 |
98 |
99 self keysAndValuesDo: [ :key :value | |
99 self keysAndValuesDo: [ :key :value | |
100 (anObject hasProperty: key) ifFalse: [ ^ false ]. |
100 (anObject hasProperty: key) ifFalse: [ ^ false ]. |
101 ((anObject propertyAt: key) = value) ifFalse: [ ^ false ]. |
101 ((anObject propertyAt: key) = value) ifFalse: [ ^ false ]. |
102 ]. |
102 ]. |
103 |
103 |
104 ^ true. |
104 ^ true. |
105 ! |
105 ! |
106 |
106 |
107 hash |
107 hash |