>branch< ( branch -- value prio left right )

Vocabulary

persistent.heaps.private

Inputs

branch

an object

Outputs

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

Definition

USING: accessors combinators ;

IN: persistent.heaps.private

: >branch< ( branch -- value prio left right )
    { [ value>> ] [ prio>> ] [ left>> ] [ right>> ] } cleave ;