--- a/Exception.st Wed Oct 29 17:09:09 1997 +0100
+++ b/Exception.st Wed Oct 29 21:10:48 1997 +0100
@@ -10,8 +10,6 @@
hereby transferred.
"
-'From Smalltalk/X, Version:3.2.1 on 25-oct-1997 at 11:48:51 pm' !
-
Object subclass:#Exception
instanceVariableNames:'signal parameter errorString suspendedContext handlerContext
rejected originator resumeBlock rejectBlock'
@@ -816,7 +814,7 @@
ifTrue:[
(activeHandlers notNil
and:[activeHandlers includesIdentical:theContext]) ifTrue:[
- 'skip activeHandler: ' print. theContext displayString printCR.
+"/ 'skip activeHandler: ' print. theContext displayString printCR.
] ifFalse:[
"
@@ -906,7 +904,7 @@
^ block value:self.
"Created: / 12.5.1996 / 15:09:39 / cg"
- "Modified: / 25.10.1997 / 11:44:35 / cg"
+ "Modified: / 29.10.1997 / 21:10:28 / cg"
!
raise
@@ -945,6 +943,6 @@
!Exception class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Exception.st,v 1.57 1997-10-29 14:12:40 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Exception.st,v 1.58 1997-10-29 20:10:48 cg Exp $'
! !
Exception initialize!