(key@) ( key array i probe# -- array n ? )

Vocabulary

hash-sets.private

Inputs

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

Outputs

array	an object
n	an object
?	an object

Definition

USING: hashtables.private kernel sequences.private ;

IN: hash-sets.private

: (key@) ( key array i probe# -- array n ? )
    [ 3dup swap array-nth ] dip over +empty+ eq?
    [ 4drop no-key ]
    [ [ = ] dip swap [ roll 2drop t ] [ probe (key@) ] if ] if ;
    inline recursive