modular-word? ( #call -- ? )

Vocabulary

compiler.tree.modular-arithmetic

Inputs

#call

an object

Outputs

?

an object

Definition

USING: accessors compiler.tree.propagation.info kernel math
math.private sequences words ;

IN: compiler.tree.modular-arithmetic

: modular-word? ( #call -- ? )
    dup word>> { shift fixnum-shift bignum-shift } member-eq?
    [ node-input-infos second interval>> small-shift? ]
    [ word>> "modular-arithmetic" word-prop ] if ;