(epsilon?) ( num shift -- ? )

Vocabulary

math.integers.private

Inputs

num	an object
shift	an object

Outputs

?

an object

Definition

USING: kernel math ;

IN: math.integers.private

: (epsilon?) ( num shift -- ? )
    dup neg? [ neg 2^ 1 - bitand zero? not ] [ 2drop f ] if ;
    inline