--- a/ExceptionHandlerSet.st Tue Aug 02 15:04:05 2016 +0200
+++ b/ExceptionHandlerSet.st Tue Aug 02 16:54:02 2016 +0200
@@ -39,7 +39,7 @@
documentation
"
- A ExceptionHandlerSet allows a group of unrelated signals to be handled
+ An ExceptionHandlerSet allows a group of unrelated signals to be handled
by individual handlers - their evaluation is equivalent to a corresponding
number of nested signal handlers, but more efficient and
somwehat easier to program.
@@ -143,8 +143,8 @@
"return true, if the receiver accepts the argument, aSignal.
(i.e. if any of the receiver's elements is aSignal or a parent of it)."
- self keysDo:[:eachExceptionHandler |
- (eachExceptionHandler==anExceptionHandler
+ self keysDo:[:eachExceptionHandler |
+ (eachExceptionHandler==anExceptionHandler
or:[eachExceptionHandler accepts:anExceptionHandler]) ifTrue:[^ true].
].
^ false
@@ -214,7 +214,7 @@
"return true, if the receiver handles the argument, anException.
(i.e. if any of the receiver's elements handles anException)."
- self keysDo:[:eachExceptionHandler|
+ self keysDo:[:eachExceptionHandler|
(eachExceptionHandler handles:anException) ifTrue:[^ true]
].
^ false