checkin from browser
authorClaus Gittinger <cg@exept.de>
Thu, 16 Jul 1998 21:19:04 +0200
changeset 1725 40a8fdab9974
parent 1724 2f07febefc5c
child 1726 37e8450c18ad
checkin from browser
DebugView.st
--- a/DebugView.st	Thu Jul 16 18:28:50 1998 +0200
+++ b/DebugView.st	Thu Jul 16 21:19:04 1998 +0200
@@ -2060,9 +2060,11 @@
     ].
     canContinue ifTrue:[
         exContext := thisContext findNextContextWithSelector:#raiseRequest or:nil or:nil.
-        (((ex := exContext receiver) isKindOf:Exception)
+        
+        (ex notNil
+        and:[((ex := exContext receiver) isKindOf:Exception)
         and:[ex signal == Signal noHandlerSignal
-        and:[ex parameter signal == Object recursionInterruptSignal]])
+        and:[ex parameter signal == Object recursionInterruptSignal]]])
         ifTrue:[
             "/ debug due to unhandled recursionInterrupt.
             "/ ask if we should proceed with more stack.
@@ -2094,7 +2096,7 @@
         ]
     ]
 
-    "Modified: / 10.7.1998 / 17:07:44 / cg"
+    "Modified: / 16.7.1998 / 19:21:59 / cg"
 !
 
 doMicroSend
@@ -3776,6 +3778,6 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.207 1998-07-10 15:13:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.208 1998-07-16 19:19:04 cg Exp $'
 ! !
 DebugView initialize!