--- a/Signal.st Tue Aug 28 11:31:21 2018 +0200
+++ b/Signal.st Tue Aug 28 11:33:07 2018 +0200
@@ -484,17 +484,20 @@
"return true, if the receiver handles the argument, anException.
(i.e. the receiver is anExceptions signal or a parent of it)"
- |signal|
-
- signal := anException creator.
+ ^ self accepts:(anException creator)
+"/ |signal|
+"/
+"/ signal := anException creator.
+"/
+"/ self == signal ifTrue:[^ true]. "quick check"
+"/ anException isNotification ifTrue:[^ false]. "speed up queries by not traversing the parent chain"
+"/
+"/ [(signal := signal parent) notNil] whileTrue:[
+"/ self == signal ifTrue:[^ true].
+"/ ].
+"/ ^ false
- self == signal ifTrue:[^ true]. "quick check"
- anException isNotification ifTrue:[^ false]. "speed up queries by not traversing the parent chain"
-
- [(signal := signal parent) notNil] whileTrue:[
- self == signal ifTrue:[^ true].
- ].
- ^ false
+ "Modified: / 28-08-2018 / 11:32:23 / Claus Gittinger"
!
inheritsFrom:anotherSignal