" Smalltalk/IdentitySet.st					-*- Smalltalk -*- "

IdentitySet : Set ()

IdentitySet scanFor: anObject
[
    | start finish |
    finish := array size.
    start := anObject identityHash \\ finish.
    " Search from (hash mod size) to the end. "
    start to: finish - 1 do:
      [ :index || element |
        element := array at: index.
        (element isNil or: [element == anObject]) ifTrue: [^index] ].
    " Search from start to (hash mod size). "
    0 to: start - 1 do:
      [ :index || element |
        element := array at: index.
        (element isNil or: [element == anObject]) ifTrue: [^index] ].
    ^-1		" no match AND no empty slot "
]