block-size<< ( value object -- )

Vocabulary

accessors

Inputs

value	an object
object	an object

Outputs

None

Definition

IN: accessors

GENERIC: block-size<< ( value object -- )

Methods

USING: accessors images.gif slots.private ;

M: application-extension block-size<< 4 set-slot ; inline


USING: accessors checksums.common kernel math slots
slots.private ;

M: block-checksum-state block-size<<
    [ dup integer? [ \ integer bad-slot-value ] unless ] dip
    7 set-slot ; inline


USING: accessors gdbm kernel math slots slots.private ;

M: gdbm block-size<<
    [ dup integer? [ \ integer bad-slot-value ] unless ] dip
    3 set-slot ; inline


USING: accessors images.gif slots.private ;

M: plain-text-extension block-size<< 4 set-slot ; inline


USING: accessors alien.c-types audio.aiff classes.struct
classes.struct.private kernel ;

M: sound-data-chunk block-size<<
    T{ struct-slot-spec
        { name "block-size" }
        { offset 12 }
        { class object }
        { type { uchar 4 } }
    } write-struct-slot ; inline


USING: accessors io.files.info.unix slots.private ;

M: unix-file-system-info block-size<< 9 set-slot ; inline