(set-bits) ( bit-array n -- )


Vocabulary
bit-arrays.private

Inputs
bit-arrayan object
nan object


Outputs
None

Definition
USING: accessors alien.accessors kernel math sequences ;

IN: bit-arrays.private

: (set-bits) ( bit-array n -- )
[ [ length bits>cells ] keep ] dip swap underlying>>
[ ] 2curry [ dip 4 * set-alien-unsigned-4 ] curry
each-integer ; inline