*** empty log message ***
authorclaus
Thu, 16 Feb 1995 04:14:34 +0100
changeset 62 8ee283ae48b2
parent 61 cb5e3560bd82
child 63 59973f55dd11
*** empty log message ***
DebugView.st
Make.proto
--- a/DebugView.st	Wed Feb 15 11:39:57 1995 +0100
+++ b/DebugView.st	Thu Feb 16 04:14:34 1995 +0100
@@ -31,7 +31,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.23 1995-02-15 10:39:45 claus Exp $
+$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.24 1995-02-16 03:14:34 claus Exp $
 '!
 
 !DebugView class methodsFor:'documentation'!
@@ -52,7 +52,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.23 1995-02-15 10:39:45 claus Exp $
+$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.24 1995-02-16 03:14:34 claus Exp $
 "
 !
 
@@ -147,9 +147,6 @@
     "the standard way of entering the debugger - sent from Objects
      error- and halt messages"
 
-    thisContext isRecursive ifTrue:[
-	^ MiniDebugger enterWithMessage:aString
-    ].
     ^ self enter:(thisContext sender) withMessage:aString
 
     "Debugger enterWithMessage:'hi there'"
@@ -177,6 +174,10 @@
 
     StepInterruptPending := nil.
 
+    thisContext isRecursive ifTrue:[
+	^ MiniDebugger enterWithMessage:'recursive error'.
+    ].
+
     "
      well, it could be a stepping or sending debugger up there;
      in this case, return to it. This happens, when a stepping process
@@ -196,9 +197,6 @@
 	]
     ].
 
-    thisContext isRecursive ifTrue:[
-	^ MiniDebugger enterWithMessage:'recursive error'.
-    ].
     ^ self enterUnconditional:aContext withMessage:aString
 !
 
--- a/Make.proto	Wed Feb 15 11:39:57 1995 +0100
+++ b/Make.proto	Thu Feb 16 04:14:34 1995 +0100
@@ -19,7 +19,7 @@
 STCOPT=$(LIBTOOL_STCOPT)
 STCLOCALOPT=-Pprogramming-tools $(COMMONSYMBOLS)
 
-SBROWSER_OBJ=SBrowser.$(O)
+# SBROWSER_OBJ=SBrowser.$(O)
 # SBROWSER_OBJ=SBrowser_1.$(O) SBrowser_2.$(O)
 
 all::       abbrev.stc objs classList.stc $(OBJTARGET)