*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Thu, 07 Dec 2006 19:22:41 +0100
changeset 10261 b429f96cf069
parent 10260 c67017d36eda
child 10262 b8ae1cdd9a80
*** empty log message ***
ReadEvalPrintLoop.st
--- a/ReadEvalPrintLoop.st	Thu Dec 07 19:22:30 2006 +0100
+++ b/ReadEvalPrintLoop.st	Thu Dec 07 19:22:41 2006 +0100
@@ -167,8 +167,8 @@
     ].
     (what startsWith:'mem') ifTrue:[
         self errorStream 
-            nextPutLine:('overall: ',(ObjectMemory bytesUsed // 1024) printString,' kb');
-            nextPutLine:('free   : ',(ObjectMemory freeSpace // 1024) printString,' kb');
+            nextPutLine:('overall: ',(ObjectMemory bytesUsed // 1024) printString,' Kb');
+            nextPutLine:('free   : ',(ObjectMemory freeSpace // 1024) printString,' Kb');
             nextPutLine:('minorGC: ',(ObjectMemory scavengeCount) printString);
             nextPutLine:('majorGC: ',(ObjectMemory garbageCollectCount) printString).
         ^ self.
@@ -182,7 +182,7 @@
 
     self errorStream nextPutLine:'?? show what ?'.
 
-    "Modified: / 07-12-2006 / 19:23:02 / cg"
+    "Modified: / 07-12-2006 / 19:23:15 / cg"
 !
 
 cmd_use:lineStream
@@ -297,5 +297,5 @@
 !ReadEvalPrintLoop class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ReadEvalPrintLoop.st,v 1.11 2006-12-07 18:22:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ReadEvalPrintLoop.st,v 1.12 2006-12-07 18:22:41 cg Exp $'
 ! !