choose-branch ( key node -- key node-left/right )


Vocabulary
trees.private

Inputs
keyan object
nodean object


Outputs
keyan object
node-left/rightan object


Definition
USING: accessors kernel ;

IN: trees.private

: choose-branch ( key node -- key node-left/right )
2dup key>> key-side [ node-link ] with-side ;