#FEATURE by exept
authorClaus Gittinger <cg@exept.de>
Sun, 08 Sep 2019 00:20:30 +0200
changeset 24736 588c89b99b52
parent 24735 0d13eb8212eb
child 24737 c8d6ba88a668
#FEATURE by exept class: GenericException added: #reRaise changed: #doRaise care for nil suspendedContext
GenericException.st
--- a/GenericException.st	Sat Sep 07 13:56:01 2019 +0200
+++ b/GenericException.st	Sun Sep 08 00:20:30 2019 +0200
@@ -2150,7 +2150,9 @@
     "is nil a valid originator? If so, we need an extra
      instanceVariable to record the originator setting"
     originator isNil ifTrue:[
-        originator := suspendedContext homeReceiver
+        suspendedContext notNil ifTrue:[
+            originator := suspendedContext homeReceiver
+        ].
     ].
 
     signal isNil ifTrue:[
@@ -2494,6 +2496,17 @@
     ^ self doRaise
 
     "Created: / 10-08-2010 / 09:50:54 / cg"
+!
+
+reRaise
+    "reraise a previously caught exception (on the current context)"
+
+    <context: #return>
+
+    ^ self doRaise
+
+
+
 ! !
 
 !GenericException methodsFor:'setup'!