(compute-modular-values) ( -- )

Vocabulary

compiler.tree.modular-arithmetic

Inputs

None

Outputs

None

Definition

USING: kernel namespaces sequences sets ;

IN: compiler.tree.modular-arithmetic

: (compute-modular-values) ( -- )
    modular-values get members [
        dup only-used-as-low-order?
        [ drop ] [ modular-values get delete changed? on ] if
    ] each ;