matching-key? ( key hashcode leaf-node -- ? )

Vocabulary

persistent.hashtables.nodes.leaf

Inputs

key	an object
hashcode	an object
leaf-node	an object

Outputs

?

an object

Definition

USING: accessors kernel ;

IN: persistent.hashtables.nodes.leaf

: matching-key? ( key hashcode leaf-node -- ? )
    [ nip ] [ hashcode>> eq? ] 2bi [ key>> = ] [ 2drop f ] if ;
    inline