count-introductions ( nodes -- n )

Vocabulary

compiler.tree.normalization.introductions

Inputs

nodes

an object

Outputs

n

an object

Definition

USING: namespaces sequences ;

IN: compiler.tree.normalization.introductions

: count-introductions ( nodes -- n )
    [
        0 introductions set [ count-introductions* ] each
        introductions get
    ] with-scope ;