(nodepath-at) ( key node -- )

Vocabulary

trees.private

Inputs

key	an object
node	an object

Outputs

None

Definition

USING: accessors kernel make ;

IN: trees.private

: (nodepath-at) ( key node -- )
    [
        dup , 2dup key>> =
        [ 2drop ] [ choose-branch (nodepath-at) ] if
    ] [ drop ] if* ;