avoid a delegating send in handler-return action.
authorClaus Gittinger <cg@exept.de>
Sat, 31 Jul 1999 16:34:56 +0200
changeset 4478 782108345281
parent 4477 ef99343d6756
child 4479 6915eb8eeeff
avoid a delegating send in handler-return action.
Exception.st
--- a/Exception.st	Sat Jul 31 16:33:42 1999 +0200
+++ b/Exception.st	Sat Jul 31 16:34:56 1999 +0200
@@ -1479,7 +1479,7 @@
 
     con := handlerContext.
     resumeBlock := rejectBlock := handlerContext := suspendedContext := nil.
-    con unwind
+    con unwind:nil
 
     "Modified: 27.3.1997 / 16:46:39 / cg"
 !
@@ -1901,6 +1901,6 @@
 !Exception class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Exception.st,v 1.74 1999-07-31 13:54:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Exception.st,v 1.75 1999-07-31 14:34:56 cg Exp $'
 ! !
 Exception initialize!