# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1567894830 -7200
# Node ID 588c89b99b52d91b66ece25ae8e7cf0f9cd503ee
# Parent  0d13eb8212eba5366b8f394cf2d56c3d57c6921f
#FEATURE by exept
class: GenericException
added: #reRaise
changed: #doRaise
care for nil suspendedContext

diff -r 0d13eb8212eb -r 588c89b99b52 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'!