lower-node ( key tree -- node )

Vocabulary

trees.private

Inputs

key	an object
tree	an object

Outputs

node

an object

Definition

USING: accessors kernel math.order sequences ;

IN: trees.private

: lower-node ( key tree -- node )
    dupd nodepath-at
    [ drop f ] [
        reverse 2dup first lower-node-in-child?
        [ nip first left>> right-extremity ]
        [ [ key>> after? ] with find nip ] if
    ] if-empty ;