--- a/WeakIdentitySet.st Tue Apr 18 11:43:10 2006 +0200
+++ b/WeakIdentitySet.st Tue Apr 18 11:44:27 2006 +0200
@@ -79,11 +79,11 @@
Since WeakIdentitySets are mostly used for dependency management, we typically
have only a small number of elements in the set.
Therefore use exact size for small sets
- (instead of rounding up to the prime 11)."
+ (instead of rounding up to the next prime 11)."
arg <= 10 ifTrue:[
- arg < 1 ifTrue:[^ 1].
- ^ arg.
+ arg < 1 ifTrue:[^ 1].
+ ^ arg.
].
^ super goodSizeFrom:arg
! !
@@ -297,5 +297,5 @@
!WeakIdentitySet class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/WeakIdentitySet.st,v 1.35 2006-03-06 10:04:36 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/WeakIdentitySet.st,v 1.36 2006-04-18 09:44:27 cg Exp $'
! !