Re: [Help-Smalltalk] Message>>#= and DirectedMessage>>#=

[Gwenaël Casaccio]

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.
>
> Paolo
>