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!
packages@lists.squeakfoundation.org