link-right ( left right key node: node -- left right key node )

Vocabulary

trees.splay.private

Inputs

left	an object
right	an object
key	an object
node	a node

Outputs

left	an object
right	an object
key	an object
node	an object

Definition

USING: accessors kernel typed ;

IN: trees.splay.private

TYPED: link-right
    ( left right key node: node -- left right key node )
    swap [ [ swap left<< ] [ ] [ left>> ] tri ] dip swap ;