#UI_ENHANCEMENT by exept
authorClaus Gittinger <cg@exept.de>
Tue, 25 Feb 2020 12:24:14 +0100
changeset 25293 037a1af56749
parent 25292 baed06d0d302
child 25294 0c24a4d05348
#UI_ENHANCEMENT by exept class: MiniDebugger changed: #doCommand:
MiniDebugger.st
--- a/MiniDebugger.st	Tue Feb 25 02:44:05 2020 +0100
+++ b/MiniDebugger.st	Tue Feb 25 12:24:14 2020 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1988 by Claus Gittinger
 	      All Rights Reserved
@@ -850,6 +848,10 @@
         ^ false
     ].
     ((cmd == $E) or:[(cmd == $e)]) ifTrue:[
+        Parser isNil ifTrue:[
+            'oops - no Compiler class found' _errorPrintCR.
+            ^ self.
+        ].
         retVal := Parser evaluate:commandArg in:dot receiver:(dot receiver) notifying:nil ifFail:nil.
         (cmd == $e) ifTrue:[ retVal _errorPrintCR ].
         ^ false