write-cluster-none ( blobs -- )

Vocabulary

zim.builder

Inputs

blobs

an object

Outputs

None

Definition

USING: endian io kernel math sequences ;

IN: zim.builder

: write-cluster-none ( blobs -- )
    1 write1 [
        dup length 1 + 4 * dup 4 >le write
        [ length + [ 4 >le write ] keep ] reduce drop
    ] [ [ write ] each ] bi ;