rem-custom-inlining ( inputs -- quot/f )

Vocabulary

compiler.tree.propagation.transforms

Inputs

inputs

an object

Outputs

quot/f

an object

Definition

USING: accessors classes.algebra compiler.tree.propagation.info
kernel math sequences ;

IN: compiler.tree.propagation.transforms

: rem-custom-inlining ( inputs -- quot/f )
    dup first value-info class>> integer class<= [
        second value-info literal>> dup integer?
        [ power-of-2? [ 1 - bitand ] f ? ] [ drop f ] if
    ] [ drop f ] if ;