bit-writer ( offset bits -- quot: ( n alien -- ) )

Vocabulary

classes.struct.bit-accessors

Inputs

offset	an object
bits	an object

Outputs

quot	a quotation with stack effect ( n alien -- )

Definition

USING: kernel math ;

IN: classes.struct.bit-accessors

: bit-writer ( offset bits -- quot: ( n alien -- ) )
    [ '[ _ _ _ write-bits ] ]
    [ '[ _ [ [ _ neg shift ] dip @ ] 2bi ] ] bit-manipulator ;