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


Vocabulary
persistent.hashtables.nodes.collision

Inputs
keyan object
hashcodean object
collision-nodean object


Outputs
nan object
leaf-nodean 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