bit-index ( n bit-array -- bit# byte# byte-array )


Vocabulary
bit-arrays.private

Inputs
nan object
bit-arrayan object


Outputs
bit#an object
byte#an object
byte-arrayan object


Definition
USING: accessors kernel kernel.private math sequences.private ;

IN: bit-arrays.private

: bit-index ( n bit-array -- bit# byte# byte-array )
[
{ integer-array-capacity } declare
integer>fixnum bit/byte
] [ underlying>> ] bi* ; inline