left-extremity ( node -- node' )

Vocabulary

trees.private

Inputs

node

an object

Outputs

node'

an object

Definition

USING: accessors kernel ;

IN: trees.private

: left-extremity ( node -- node' )
    [ dup left>> ] [ nip ] while* ;