# HG changeset patch # User Claus Gittinger # Date 1145353467 -7200 # Node ID 60e972e65943674c3c2896be09730df60a6f1182 # Parent dd88002fb60ceb60b5a42ec51a5bd3b7d1e444f9 comment diff -r dd88002fb60c -r 60e972e65943 WeakIdentitySet.st --- 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 $' ! !