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 ] 3curry ] [
        [ [ neg shift ] curry ] dip [ [ dip ] curry ] dip
        compose [ 2bi ] 2curry
    ] bit-manipulator ;