steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

images.jpeg: fix loading error

db4
Joe Groff 2010-07-09 14:30:26 -07:00
parent 8b7cb0bc21
commit 7f0ba86421
1 changed files with 3 additions and 5 deletions
basis/images/jpeg

8
basis/images/jpeg/jpeg.factor
View File

@ -120,10 +120,8 @@ TUPLE: jpeg-color-info
] with-byte-reader ;
: decode-huff-table ( chunk -- )
data>> [ binary <byte-reader> ] [ length ] bi
limit-stream <throws-on-eof>
[
[ input-stream get [ count>> ] [ limit>> ] bi < ]
data>> [ binary <byte-reader> ] [ length ] bi limit-stream [
[ input-stream get stream>> [ count>> ] [ limit>> ] bi < ]
[
read4/4 swap 2 * +
16 read
@ -131,7 +129,7 @@ TUPLE: jpeg-color-info
binary [ [ read [ B{ } ] unless* ] { } map-as ] with-byte-reader
swap jpeg> huff-tables>> set-nth
] while
] with-input-stream* ;
] throws-on-eof ;
: decode-scan ( chunk -- )
data>>