bit-writer-bytes ( writer -- bytes )

Vocabulary

bitstreams

Inputs

writer

an object

Outputs

bytes

an object

Definition

USING: accessors kernel math sequences ;

IN: bitstreams

:: bit-writer-bytes ( writer -- bytes )
    writer widthed>> #bits>> :> n n 0 =
    [ writer widthed>> bits>> 8 n - shift writer bytes>> push ]
    unless writer bytes>> ;