floor-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

: floor-node ( key tree -- node )
    dupd nodepath-at
    [ drop f ] [ reverse [ key>> after=? ] with find nip ]
    if-empty ;