IdentitySet.st
changeset 634 e15218d09420
parent 609 12be97f6d5a7
child 1126 497de696dff0
equal deleted inserted replaced
633:46e996b3c18f 634:e15218d09420
    38     same as a Set but compares elements using == 
    38     same as a Set but compares elements using == 
    39     (i.e. they must be identical - not just equal in structure).
    39     (i.e. they must be identical - not just equal in structure).
    40     Since compare is on identity (using ==), hashing is also done via
    40     Since compare is on identity (using ==), hashing is also done via
    41     #identityHash instead of #hash.
    41     #identityHash instead of #hash.
    42 "
    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 ! !
    43 ! !
    48 
    44 
    49 !IdentitySet methodsFor:'private'!
    45 !IdentitySet methodsFor:'private'!
    50 
    46 
    51 find:key ifAbsent:aBlock
    47 find:key ifAbsent:aBlock
   140     ].
   136     ].
   141     ^ index
   137     ^ index
   142 
   138 
   143 ! !
   139 ! !
   144 
   140 
       
   141 !IdentitySet class methodsFor:'documentation'!
       
   142 
       
   143 version
       
   144     ^ '$Header: /cvs/stx/stx/libbasic/IdentitySet.st,v 1.16 1995-11-23 17:31:42 cg Exp $'
       
   145 ! !