unhandled querySignals should return nil
authorClaus Gittinger <cg@exept.de>
Sat, 09 Nov 1996 17:05:11 +0100
changeset 1953 c8a3af54acb3
parent 1952 18cfc11b49fa
child 1954 05b137a75c75
unhandled querySignals should return nil
Exception.st
--- 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!