Smalltalk.st
changeset 15009 cd08c3e66a57
parent 14987 48fe827c49b5
child 15068 e9075c481268
child 18043 03660093fe98
--- a/Smalltalk.st	Sun Mar 31 02:36:38 2013 +0000
+++ b/Smalltalk.st	Sun Mar 31 02:49:20 2013 +0000
@@ -683,7 +683,9 @@
 !
 
 garbageCollect
-   ObjectMemory garbageCollect
+    "for Squeak compatibility"
+
+    ObjectMemory garbageCollect
 !
 
 garbageCollectMost
@@ -692,9 +694,7 @@
      newSpace + freeListSpace is returned."
 
     ObjectMemory scavenge.
-    ^ ObjectMemory freeSpace
-      + (ObjectMemory newSpaceSize - ObjectMemory newSpaceUsed)
-
+    ^ ObjectMemory freeSpace + (ObjectMemory newSpaceSize - ObjectMemory newSpaceUsed)
 !
 
 isMorphic
@@ -7907,11 +7907,11 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.1018 2013-03-27 19:13:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.1019 2013-03-31 02:49:20 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.1018 2013-03-27 19:13:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.1019 2013-03-31 02:49:20 cg Exp $'
 !
 
 version_SVN