Nicolas Cellier uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-nice.1395.mcz==================== Summary ====================
Name: Kernel-nice.1395
Author: nice
Time: 29 April 2021, 8:18:50.78844 pm
UUID: f62a6682-e4e0-404a-8b5a-f25b60cad832
Ancestors: Kernel-nice.1394
Clean-up scories from previous fix for nested exception handling.
No need to resume from within defaultAction.
If anySatisfy: does the job, don't you inline it!
=============== Diff against Kernel-nice.1394 ===============
Item was removed:
- ----- Method: Context>>reactivateHandlers (in category 'private-exceptions') -----
- reactivateHandlers
- "Private - exception handling
- do nothing, this method is only here for smooth transition.
- It shall be removed at next update map."
-
- ^self!
Item was removed:
- ----- Method: Context>>rearmHandlersWhich:upTo: (in category 'private-exceptions') -----
- rearmHandlersWhich: selectBlock upTo: aHandlerContext
- "Private - sent to exception handler context only (on:do:).
- Rearm the inner handlers into the chain, up to, but not including, aHandlerContext, that satisfy the selectBlock predicate"
-
- self == aHandlerContext ifTrue: [^self].
- (selectBlock value: self) ifTrue: [self rearmHandler].
- self nextHandlerContext rearmHandlersWhich: selectBlock upTo: aHandlerContext!
Item was removed:
- ----- Method: Exception>>reactivateHandlers (in category 'priv handling') -----
- reactivateHandlers
- "Private - exception handling
- do nothing, this method is only here for smooth transition.
- It shall be removed at next update map."
-
- ^self!
Item was changed:
----- Method: ExceptionSet>>handles: (in category 'exceptionSelector') -----
handles: anException
"Determine whether an exception handler will accept a signaled exception."
+ ^exceptions anySatisfy: [:ex | ex handles: anException]!
- exceptions do:
- [:ex |
- (ex handles: anException)
- ifTrue: [^true]].
- ^false!
Item was changed:
----- Method: InMidstOfFileinNotification>>defaultAction (in category 'handling') -----
defaultAction
+ ^false!
- self resume: false!
Item was removed:
- ----- Method: UndefinedObject>>rearmHandlersWhich:upTo: (in category 'bottom context') -----
- rearmHandlersWhich: selectBlock upTo: aHandlerContext
-
- ^ self!