load-jpeg ( stream -- loading-jpeg )

Vocabulary

images.jpeg.private

Inputs

stream

an object

Outputs

loading-jpeg

an object

Definition

USING: io kernel ;

IN: images.jpeg.private

: load-jpeg ( stream -- loading-jpeg )
    [
        parse-marker { SOI } = [ not-a-jpeg-image ] unless
        parse-headers read-contents <loading-jpeg>
    ] with-input-stream ;