--- a/MiniDebugger.st Wed Feb 05 17:24:31 2020 +0100
+++ b/MiniDebugger.st Wed Feb 05 17:27:43 2020 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 1988 by Claus Gittinger
All Rights Reserved
@@ -732,11 +730,11 @@
'no process with id: ' _errorPrint. id _errorPrintCR.
] ifFalse:[
'-------- VM walkback of current process -------' _errorPrintCR.
- (Processor activeProcess environmentAt:#Stderr ifAbsent:Stderr) == Stderr ifTrue:[
+ Processor activeProcess stderr == Stderr ifTrue:[
ObjectMemory printStackBacktrace
] ifFalse:[
"/ self printBacktraceFrom:(self getContext)
- thisContext fullPrintAllOn:(Processor activeProcess environmentAt:#Stderr)
+ thisContext fullPrintAllOn:(Processor activeProcess stderr)
]
]
].
@@ -938,6 +936,7 @@
"Created: / 29-09-2011 / 08:58:47 / cg"
"Modified: / 15-09-2017 / 14:30:48 / cg"
+ "Modified: / 05-02-2020 / 17:05:07 / Stefan Vogel"
!
getCommand:prompt