make-bitmap-node ( shift branch value key hashcode -- node' added-leaf )

Vocabulary

persistent.hashtables.nodes

Inputs

shift	an object
branch	an object
value	an object
key	an object
hashcode	an object

Outputs

node'	an object
added-leaf	an object

Definition

USING: accessors arrays ;

IN: persistent.hashtables.nodes

:: make-bitmap-node
    ( shift branch value key hashcode -- node' added-leaf )
    shift value key hashcode branch hashcode>> shift bitpos
    branch 1array shift <bitmap-node> (new-at) ; inline