# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1363684950 -3600
# Node ID 051fa8fdbf5d0c758d4b30360a481241f3fe6247
# Parent  b7b7931cb32d55094ed65f2d52b9713571bb4524
comment/format in: #add:

diff -r b7b7931cb32d -r 051fa8fdbf5d Heap.st
--- a/Heap.st	Tue Mar 19 10:22:28 2013 +0100
+++ b/Heap.st	Tue Mar 19 10:22:30 2013 +0100
@@ -182,11 +182,11 @@
 !Heap methodsFor:'adding'!
 
 add: anObject
-	"Include newObject as one of the receiver's elements. Answer newObject."
-	tally = array size ifTrue:[self grow].
-	array at: (tally := tally + 1) put: anObject.
-	self upHeap: tally.
-	^anObject
+    "Include newObject as one of the receiver's elements. Answer newObject."
+    tally = array size ifTrue:[self grow].
+    array at: (tally := tally + 1) put: anObject.
+    self upHeap: tally.
+    ^anObject
 ! !
 
 !Heap methodsFor:'comparing'!
@@ -372,9 +372,10 @@
 !Heap class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Heap.st,v 1.3 2012-08-13 11:15:33 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Heap.st,v 1.4 2013-03-19 09:22:30 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/Heap.st,v 1.3 2012-08-13 11:15:33 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Heap.st,v 1.4 2013-03-19 09:22:30 cg Exp $'
 ! !
+