--- a/Object.st Thu Apr 30 11:30:11 2020 +0200
+++ b/Object.st Sun May 03 13:20:12 2020 +0200
@@ -594,7 +594,6 @@
! !
-
!Object methodsFor:'accessing'!
_at:index
@@ -8650,18 +8649,18 @@
Read this:
Many programmers do an Error-handle to perform a similar
checked-message send. However, this method is more specific,
- in that only errors for the given selector are caught - not any other
+ in that only errors for the given selector and this receiver are caught - not any other
doesNotUnderstand, and especially not any other error."
^ [
- self perform:aSelector.
+ self perform:aSelector.
] on:MessageNotUnderstood do:[:ex |
- "/ reject, if the bad message is not the one
- "/ we have sent originally
- (ex selector == aSelector and:[ex receiver == self]) ifFalse:[
- ex reject
- ].
- exceptionBlock value
+ "/ reject, if the bad message is not the one
+ "/ we have sent originally
+ (ex selector == aSelector and:[ex receiver == self]) ifFalse:[
+ ex reject
+ ].
+ exceptionBlock value
].
"
@@ -8670,8 +8669,8 @@
12345 perform:#sqrt ifNotUnderstood:['sorry']
"
- "Modified (comment): / 13-02-2017 / 20:27:38 / cg"
"Modified: / 15-03-2017 / 17:05:58 / stefan"
+ "Modified (comment): / 03-05-2020 / 13:19:31 / cg"
!
perform:aSelector with:argument ifNotUnderstood:exceptionBlock