count-introductions* ( node -- )

Vocabulary

compiler.tree.normalization.introductions

Inputs

node

an object

Outputs

None

Definition

IN: compiler.tree.normalization.introductions

GENERIC: count-introductions* ( node -- )

Methods

USING: accessors compiler.tree
compiler.tree.normalization.introductions math.order sequences ;

M: #branch count-introductions*
    children>> [ count-introductions ] [ max ] map-reduce
    introductions+ ;


USING: accessors compiler.tree
compiler.tree.normalization.introductions sequences ;

M: #introduce count-introductions*
    out-d>> length introductions+ ;


USING: accessors compiler.tree
compiler.tree.normalization.introductions kernel ;

M: #recursive count-introductions*
    [ label>> ] [ child>> count-introductions ] bi
    >>introductions drop ;


USING: compiler.tree compiler.tree.normalization.introductions
kernel ;

M: node count-introductions* drop ;