Handbook
Glossary
zero-end-bits ( bit-array -- bit-array )
Vocabulary
bit-arrays.private
Inputs
bit-array
an
object
Outputs
bit-array
an
object
Definition
USING:
accessors
kernel
math
sequences
;
IN:
bit-arrays.private
:
zero-end-bits
( bit-array -- bit-array )
dup
underlying>>
[
]
[
[
length
8
*
over
length
-
8
swap
-
-1
swap
shift
bitnot
]
[
last
bitand
]
[
set-last
]
tri
]
if-empty
;
inline