--- a/Signal.st Fri Apr 19 09:38:48 2013 +0200
+++ b/Signal.st Tue Apr 23 14:27:19 2013 +0100
@@ -169,6 +169,14 @@
"Modified: / 4.8.1999 / 08:10:09 / stefan"
! !
+!Signal methodsFor:'Compatibility-ANSI'!
+
+signalWith:messageText
+ "ANSI compatibility"
+
+ self raiseErrorString:messageText
+! !
+
!Signal methodsFor:'Compatibility-VW'!
messageText:aString
@@ -447,7 +455,7 @@
|signal|
- signal := anException signal.
+ signal := anException creator.
self == signal ifTrue:[^ true]. "quick check"
anException isNotification ifTrue:[^ false]. "speed up queries by not traversing the parent chain"
@@ -793,12 +801,6 @@
raiseWith:aParameter in:aContext
"Modified: / 10-08-2010 / 10:03:05 / cg"
-!
-
-signalWith:messageText
- "ANSI compatibility"
-
- self raiseErrorString:messageText
! !
!Signal methodsFor:'save evaluation'!
@@ -978,10 +980,10 @@
!Signal class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Signal.st,v 1.110 2013-03-26 14:20:07 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Signal.st,v 1.111 2013-04-19 08:41:12 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/Signal.st,v 1.110 2013-03-26 14:20:07 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Signal.st,v 1.111 2013-04-19 08:41:12 cg Exp $'
! !