Exception.st
changeset 3068 e022c6c4e588
parent 3066 eb7489e8275a
child 3091 eca3dfaa92c9
--- 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!