fixnum-bit? ( x n -- ? )

Vocabulary

math.integers.private

Inputs

x	an object
n	an object

Outputs

?

an object

Definition

USING: kernel kernel.private math ;

IN: math.integers.private

: fixnum-bit? ( x n -- ? )
    { fixnum fixnum } declare dup 0 >=
    [ neg shift even? not ] [ 2drop f ] if ;