On 10/12/2010 11:53 AM, Gwenaël Casaccio wrote:
On Tue, Oct 12, 2010 at 11:42 AM, Paolo Bonzini<bonz...@gnu.org> 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.
And maybe make a "real" patch and send it? :)
Paolo
_______________________________________________
help-smalltalk mailing list
help-smalltalk@gnu.org
http://lists.gnu.org/mailman/listinfo/help-smalltalk
