The Trunk: Kernel-nice.1395.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: Kernel-nice.1395.mcz

commits-2
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!