IdentitySet.st
changeset 609 12be97f6d5a7
parent 530 07d0bce293c9
child 634 e15218d09420
equal deleted inserted replaced
608:cd5ac440fa95 609:12be97f6d5a7
    31  other person.  No title to or ownership of the software is
    31  other person.  No title to or ownership of the software is
    32  hereby transferred.
    32  hereby transferred.
    33 "
    33 "
    34 !
    34 !
    35 
    35 
    36 version
       
    37     ^ '$Header: /cvs/stx/stx/libbasic/IdentitySet.st,v 1.14 1995-11-11 15:23:28 cg Exp $'
       
    38 !
       
    39 
       
    40 documentation
    36 documentation
    41 "
    37 "
    42     same as a Set but compares elements using == 
    38     same as a Set but compares elements using == 
    43     (i.e. they must be identical - not just equal in structure).
    39     (i.e. they must be identical - not just equal in structure).
    44     Since compare is on identity (using ==), hashing is also done via
    40     Since compare is on identity (using ==), hashing is also done via
    45     #identityHash instead of #hash.
    41     #identityHash instead of #hash.
    46 "
    42 "
       
    43 !
       
    44 
       
    45 version
       
    46     ^ '$Header: /cvs/stx/stx/libbasic/IdentitySet.st,v 1.15 1995-11-23 01:25:32 cg Exp $'
    47 ! !
    47 ! !
    48 
    48 
    49 !IdentitySet methodsFor:'private'!
    49 !IdentitySet methodsFor:'private'!
    50 
    50 
    51 find:key ifAbsent:aBlock
    51 find:key ifAbsent:aBlock
   139 	 this is only called after growing"
   139 	 this is only called after growing"
   140     ].
   140     ].
   141     ^ index
   141     ^ index
   142 
   142 
   143 ! !
   143 ! !
       
   144