(new-key@) ( array key i probe# j -- array i j empty? )

Vocabulary

hash-sets.private

Inputs

array	an object
key	an object
i	an object
probe#	an object
j	an object

Outputs

array	an object
i	an object
j	an object
empty?	an object

Definition

USING: hashtables.private kernel sequences.private ;

IN: hash-sets.private

: (new-key@) ( array key i probe# j -- array i j empty? )
    [ 2dup swap array-nth ] 2dip pick tombstone? [
        rot +empty+ eq?
        [ nip [ drop ] 3dip t ]
        [ pick or [ probe ] dip (new-key@) ] if
    ] [
        [ pickd = ] 2dip rot
        [ nip [ drop ] 3dip f ] [ [ probe ] dip (new-key@) ] if
    ] if ; inline recursive