simplify-bitand? ( value1 value2 -- ? )

Vocabulary

compiler.tree.propagation.transforms

Inputs

value1	an object
value2	an object

Outputs

?

an object

Definition

USING: accessors classes.algebra kernel math ;

IN: compiler.tree.propagation.transforms

: simplify-bitand? ( value1 value2 -- ? )
    [ literal>> non-negative-fixnum? ]
    [ class>> fixnum swap class<= ] bi* and ;