lookup ( key node -- value/f )

Vocabulary

stack-checker.recursive-state.tree

Inputs

key	an object
node	an object

Outputs

value/f

an object

Definition

IN: stack-checker.recursive-state.tree

GENERIC: lookup ( key node -- value/f )

Methods

USING: kernel stack-checker.recursive-state.tree ;

M: f lookup nip ;


USING: accessors kernel stack-checker.recursive-state.tree ;

M: node lookup
    2dup key>> eq?
    [ nip value>> ] [ decide [ left>> ] [ right>> ] if lookup ]
    if ;