marked-unsafe? ( n sieve -- ? )

Vocabulary

math.primes.erato.private

Inputs

n	an object
sieve	an object

Outputs

?

an object

Definition

USING: kernel math math.bitwise sequences.private ;

IN: math.primes.erato.private

:: marked-unsafe? ( n sieve -- ? )
    n bit-pos
    [ [ sieve nth-unsafe ] [ mask zero? not ] bi* ] [ drop f ]
    if* ; inline