unmark ( n sieve -- )

Vocabulary

math.primes.erato.private

Inputs

n	an object
sieve	an object

Outputs

None

Definition

USING: kernel math.bitwise sequences.private ;

IN: math.primes.erato.private

:: unmark ( n sieve -- )
    n bit-pos
    [ swap sieve [ swap unmask ] change-nth-unsafe ] [ drop ]
    if* ; inline