ReadEvalPrintLoop.st
changeset 20937 fad9938ce942
parent 20936 06ccf7cc734a
child 20938 9532ecca5967
--- a/ReadEvalPrintLoop.st	Tue Nov 08 23:55:10 2016 +0100
+++ b/ReadEvalPrintLoop.st	Tue Nov 08 23:58:24 2016 +0100
@@ -333,14 +333,19 @@
         (ok and:[tmpFile modificationTime ~= modifiedTime]) ifTrue:[
             isNewClass ifTrue:[
                 Compiler evaluate:tmpFile contentsOfEntireFile.    
+                errStream showCR:'Class (re)defined.'
             ] ifFalse:[
                 editFullClass ifTrue:[
                     tmpFile fileIn.
+                    errStream showCR:'Class (re)compiled.'
                 ] ifFalse:[    
                     cls compile:tmpFile contentsOfEntireFile classified:'*as yet uncategorized'.    
+                    errStream showCR:'Method (re)compiled.'
                 ].    
             ].    
-        ].
+        ] ifFalse:[
+            errStream showCR:'No change.'
+        ].    
     ] ensure:[
         tmpFile notNil ifTrue:[
             tmpFile remove