Hi.

Does anybody know why #doesNotUnderstand: is implemented with recursion at
the end?

doesNotUnderstand: aMessage
| exception resumeValue |
(exception := MessageNotUnderstood new)
message: aMessage;
receiver: self.
resumeValue := exception signal.
* ^exception reachedDefaultHandler*
* ifTrue: [aMessage sentTo: self]*
ifFalse: [resumeValue].


Best regards,
Denis

Reply via email to