node-at* ( key node -- value ? )

Vocabulary

trees.private

Inputs

key	an object
node	an object

Outputs

value	an object
?	an object

Definition

USING: accessors kernel ;

IN: trees.private

: node-at* ( key node -- value ? )
    [
        2dup key>> =
        [ nip value>> t ] [ choose-branch node-at* ] if
    ] [ drop f f ] if* ;