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