--- a/Set.st Tue Feb 05 13:23:42 2008 +0100
+++ b/Set.st Tue Feb 05 14:49:29 2008 +0100
@@ -280,21 +280,21 @@
"add the argument, anObject to the receiver.
WARNING: do not add elements while iterating over the receiver.
- Iterate over a copy to do this."
+ Iterate over a copy to do this."
|index "{ Class: SmallInteger }"|
- anObject isNil ifTrue:[
- ^ self invalidElementError.
+ anObject isNil ifTrue:[
+ ^ self invalidElementError.
].
index := self findKeyOrNil:anObject.
(keyArray basicAt:index) isNil ifTrue:[
- "/ not already there
- keyArray basicAt:index put:anObject.
- tally := tally + 1.
+ "/ not already there
+ keyArray basicAt:index put:anObject.
+ tally := tally + 1.
- self fullCheck.
+ self fullCheck.
].
^ anObject
@@ -463,7 +463,6 @@
"Modified: 30.1.1997 / 14:58:08 / cg"
! !
-
!Set methodsFor:'comparing'!
= aCollection
@@ -1016,7 +1015,6 @@
^ tally
! !
-
!Set methodsFor:'testing'!
capacity
@@ -1118,7 +1116,7 @@
!Set class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.100 2007-06-04 07:26:44 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.101 2008-02-05 13:49:29 sr Exp $'
! !
Set initialize!