assemble ( head left right node: node -- root )

Vocabulary

trees.splay.private

Inputs

head	an object
left	an object
right	an object
node	a node

Outputs

root

an object

Definition

USING: accessors combinators kernel typed ;

IN: trees.splay.private

TYPED: assemble ( head left right node: node -- root )
    {
        [ right>> swap left<< ]
        [ left>> swap right<< ]
        [ over left>> swap right<< ]
        [ swap right>> swap left<< ]
        [ ]
    } cleave ;