unmark ( n sieve -- )


Vocabulary
math.primes.erato.private

Inputs
nan object
sievean 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