--- a/Exception.st Sat Mar 01 17:28:32 1997 +0100
+++ b/Exception.st Sat Mar 01 23:53:56 1997 +0100
@@ -657,8 +657,8 @@
theSignal c ex1 activeHandlers inHandler rejected
lastHandler h raiseReceiver|
- theContext := thisContext sender. "the raise/raiseRequest-context"
- theContext := theContext sender. "the signal raise context"
+ theContext := thisContext sender sender. "the raise/raiseRequest-context"
+ "the signal raise context"
theSignal := theContext receiver.
theSignal isSignal ifFalse:[
@@ -836,7 +836,7 @@
^ block value:self.
"Created: 12.5.1996 / 15:09:39 / cg"
- "Modified: 27.1.1997 / 20:26:06 / cg"
+ "Modified: 1.3.1997 / 23:53:14 / cg"
!
raise
@@ -875,6 +875,6 @@
!Exception class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Exception.st,v 1.50 1997-01-28 00:01:27 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Exception.st,v 1.51 1997-03-01 22:53:56 cg Exp $'
! !
Exception initialize!