Vocabulary
persistent.hashtables.nodes

Inputs
shiftan object
branchan object
valuean object
keyan object
hashcodean object


Outputs
node'an object
added-leafan object


Definition


:: 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