reroot-right ( value prio left right -- heap )

Vocabulary

persistent.heaps.private

Inputs

value	an object
prio	an object
left	an object
right	an object

Outputs

heap

an object

Definition

USING: accessors ;

IN: persistent.heaps.private

:: reroot-right ( value prio left right -- heap )
    right value>> right prio>> left value prio right left>>
    right right>> sift-down <branch> ;