reroot-left ( 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-left ( value prio left right -- heap )
    left value>> left prio>> value prio left left>> left right>>
    sift-down right <branch> ;