select-rotate ( node -- node )

Vocabulary

trees.avl.private

Inputs

node

an object

Outputs

node

an object

Definition

USING: accessors kernel namespaces trees.private ;

IN: trees.avl.private

: select-rotate ( node -- node )
    dup node+link balance>> current-side get =
    [ double-rotate ] [ single-rotate ] if ;