find-index ( key hashcode collision-node -- n leaf-node )

Vocabulary

persistent.hashtables.nodes.collision

Inputs

key	an object
hashcode	an object
collision-node	an object

Outputs

n	an object
leaf-node	an object

Definition

USING: accessors kernel persistent.hashtables.nodes.leaf
sequences ;

IN: persistent.hashtables.nodes.collision

: find-index ( key hashcode collision-node -- n leaf-node )
    leaves>> -rot [ ] 2curry [ dip matching-key? ] curry find ;
    inline