rotate-left ( node: node -- node )

Vocabulary

trees.splay.private

Inputs

node

a node

Outputs

node

an object

Definition

USING: accessors kernel typed ;

IN: trees.splay.private

TYPED: rotate-left ( node: node -- node )
    dup right>> [ >>right ] change-left ;