fixnum-mask? ( obj -- ? )

Vocabulary

compiler.tree.propagation.transforms

Inputs

obj

an object

Outputs

?

an object

Definition

USING: combinators.short-circuit layouts math math.order ;

IN: compiler.tree.propagation.transforms

: fixnum-mask? ( obj -- ? )
    { [ integer? ] [ 0 most-positive-fixnum between? ] } 1&& ;