single-rotate ( node -- node )

Vocabulary

trees.avl.private

Inputs

node

an object

Outputs

node

an object

Definition

USING: accessors kernel trees.private ;

IN: trees.avl.private

: single-rotate ( node -- node )
    0 >>balance 0 over node+link balance<< rotate ;