On Tue, Oct 12, 2010 at 11:42 AM, Paolo Bonzini<address@hidden> wrote:
On 10/12/2010 11:02 AM, Gwenaël Casaccio wrote:
Message extend [
= anObject [
<category: 'testing'>
^ self class == anObject class and: [ self selector = anObject
selector and: [ self arguments = anObject arguments ] ]
]
hash [
<category: 'basic'>
^ (super hash bitXor: self selector hash) bitXor: self arguments hash
]
]
DirectedMessage extend [
= anObject [
<category: 'testing'>
^ super = anObject and: [ self receiver = anObject receiver ]
]
hash [
<category: 'basic'>
^ super hash bitXor: self receiver hash
]
]
#hash missing.