link-left ( 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-left
    ( left right key node: node -- left right key node )
    swap [ [ rot right<< ] [ ] [ right>> ] tri swapd ] dip swap
    ;