#REFACTORING by stefan
authorStefan Vogel <sv@exept.de>
Wed, 05 Feb 2020 17:27:43 +0100
changeset 25245 50a569eaaba3
parent 25244 6df56799dd3e
child 25246 9318f9bff60d
#REFACTORING by stefan class: MiniDebugger changed: #doCommand:
MiniDebugger.st
--- 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