--- 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!