node

Vocabulary

stack-checker.recursive-state.tree

Definition

IN: stack-checker.recursive-state.tree

TUPLE: node value key hashcode left right ;

Methods

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

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


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

M: node store
    clone decide
    [ [ store ] change-left ] [ [ store ] change-right ] if ;