> doesNotUnderstand: aMessage [
> ^(Array canUnderstand: aMessage selector)
> ifTrue: [aMessage sendTo: ]
> ifFalse: [self basicDoesNotUnderstand:
aMessage]
> ]
> ]
You did realize that this is also subsuming
do: aBlock [ aBlock value: self ]
didn't you? :-P
Paolo
_______________________________________________
help-smalltalk mailing list
help-smalltalk gnu.org
http://lists.gnu.org/mailman/listinfo/help-smalltalk
|