nodepath-at ( key tree -- path )

Vocabulary

trees.private

Inputs

key	an object
tree	an object

Outputs

path

an object

Definition

USING: accessors make ;

IN: trees.private

: nodepath-at ( key tree -- path )
    [ root>> (nodepath-at) ] { } make ;