constant-number-info? ( info -- ? )

Vocabulary

compiler.tree.propagation.transforms

Inputs

info

an object

Outputs

?

an object

Definition

USING: accessors classes.algebra combinators.short-circuit
compiler.tree.propagation.info math ;

IN: compiler.tree.propagation.transforms

: constant-number-info? ( info -- ? )
    {
        [ value-info-state? ]
        [ literal?>> ]
        [ class>> integer class<= ]
    } 1&& ;