lower-node-in-child? ( key node -- ? )

Vocabulary

trees.private

Inputs

key	an object
node	an object

Outputs

?

an object

Definition

USING: accessors kernel ;

IN: trees.private

: lower-node-in-child? ( key node -- ? )
    [ nip left>> ] [ key>> = ] 2bi and ;