On Tue, Oct 12, 2010 at 11:42 AM, Paolo Bonzini <[email protected]> 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
>
_______________________________________________
help-smalltalk mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/help-smalltalk
