--- a/Exception.st Sat Nov 09 00:55:16 1996 +0100
+++ b/Exception.st Sat Nov 09 17:05:11 1996 +0100
@@ -18,7 +18,7 @@
category:'Kernel-Exceptions'
!
-!Exception class methodsFor:'documentation'!
+!Exception class methodsFor:'documentation'!
copyright
"
@@ -114,7 +114,7 @@
"
! !
-!Exception class methodsFor:'initialization'!
+!Exception class methodsFor:'initialization'!
initialize
"setup the signal used to handle unhandled signals"
@@ -126,7 +126,7 @@
]
! !
-!Exception class methodsFor:'instance creation'!
+!Exception class methodsFor:'instance creation'!
signal:aSignal parameter:aParameter errorString:aString suspendedContext:sContext
"create a new instance and set the fields in preparation for a raise.
@@ -152,7 +152,7 @@
originator:origin.
! !
-!Exception class methodsFor:'Signal constants'!
+!Exception class methodsFor:'Signal constants'!
recursiveExceptionSignal
"return the signal used to handle recursive signals in the handlers"
@@ -160,7 +160,7 @@
^ RecursiveExceptionSignal
! !
-!Exception class methodsFor:'defaults'!
+!Exception class methodsFor:'defaults'!
emergencyHandler
"return the handler used for unhandled exceptions"
@@ -510,9 +510,9 @@
"
(block := signal handlerBlock) isNil ifTrue:[
"/
- "/ if its a querySIgnal, ignore it
+ "/ if its a querySignal, ignore it
"/
- signal isQuerySignal ifTrue:[^ self].
+ signal isQuerySignal ifTrue:[^ nil].
"/
"/ if it is not the NoHandlerSignal, raise it ...
@@ -560,7 +560,7 @@
^ block value:self.
"Created: 12.5.1996 / 15:09:39 / cg"
- "Modified: 26.7.1996 / 16:13:55 / cg"
+ "Modified: 9.11.1996 / 17:04:28 / cg"
!
raise
@@ -596,9 +596,9 @@
originator := origin.
! !
-!Exception class methodsFor:'documentation'!
+!Exception class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Exception.st,v 1.41 1996-10-12 13:37:25 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Exception.st,v 1.42 1996-11-09 16:05:11 cg Exp $'
! !
Exception initialize!