optimize-modular-op ( #call -- nodes )

Vocabulary

compiler.tree.modular-arithmetic

Inputs

#call

an object

Outputs

nodes

an object

Definition

USING: accessors compiler.tree.def-use.simplified kernel math
math.partial-dispatch sequences ;

IN: compiler.tree.modular-arithmetic

: optimize-modular-op ( #call -- nodes )
    dup out-d>> first modular-value? [
        [ in-d>> ] [ word>> integer-op-input-classes ] [ ] tri [
            [
                [
                    actually-defined-by
                    [ value>> modular-value? ] all?
                ] [ fixnum eq? ] bi* or
            ] 2map fixnum-coercion
        ] [ [ modular-variant ] change-word ] bi* suffix
    ] when ;