<bitmap-node> ( bitmap nodes shift -- node )

Vocabulary

persistent.hashtables.nodes

Inputs

bitmap	an object
nodes	an object
shift	an object

Outputs

node

an object

Definition

USING: accessors kernel persistent.hashtables.config sequences ;

IN: persistent.hashtables.nodes

: <bitmap-node> ( bitmap nodes shift -- node )
    pick full-bitmap-mask =
    [ <full-node> nip ]
    [ over first hashcode>> bitmap-node boa ] if ;