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


Vocabulary
trees.splay.private

Inputs
leftan object
rightan object
keyan object
nodea node


Outputs
leftan object
rightan object
keyan object
nodean object


Definition


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