continue with more stack fixed
authorClaus Gittinger <cg@exept.de>
Mon, 05 Oct 1998 14:04:50 +0200
changeset 1917 200617958f79
parent 1916 5d970f0f3dd7
child 1918 9beb5abaa3a5
continue with more stack fixed
DebugView.st
--- a/DebugView.st	Mon Oct 05 13:52:47 1998 +0200
+++ b/DebugView.st	Mon Oct 05 14:04:50 1998 +0200
@@ -2083,7 +2083,7 @@
     canContinue ifTrue:[
         exContext := thisContext findNextContextWithSelector:#raiseRequest or:nil or:nil.
         
-        (ex notNil
+        (exContext notNil
         and:[((ex := exContext receiver) isKindOf:Exception)
         and:[ex signal == Signal noHandlerSignal
         and:[ex parameter signal == Object recursionInterruptSignal]]])
@@ -2118,7 +2118,7 @@
         ]
     ]
 
-    "Modified: / 29.7.1998 / 21:49:06 / cg"
+    "Modified: / 5.10.1998 / 13:03:47 / cg"
 !
 
 doMicroSend
@@ -3878,6 +3878,6 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.217 1998-10-01 10:52:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.218 1998-10-05 12:04:50 cg Exp $'
 ! !
 DebugView initialize!