cleanup-bitstream ( bytes -- bytes' )

Vocabulary

images.jpeg.private

Inputs

bytes

an object

Outputs

bytes'

an object

Definition

USING: io io.encodings.binary io.streams.byte-array kernel
sequences ;

IN: images.jpeg.private

: cleanup-bitstream ( bytes -- bytes' )
    binary [
        [ { 255 } read-until read1 [ 0 = and ] keep swap ]
        [ drop ] produce swap >marker { EOI } assert=
        swap suffix { 255 } join
    ] with-byte-reader ;