rotate ( node -- node )

Vocabulary

trees.avl.private

Inputs

node

an object

Outputs

node

an object

Definition

USING: kernel trees.private ;

IN: trees.avl.private

: rotate ( node -- node )
    dup node+link dup node-link pick set-node+link
    [ set-node-link ] keep ;