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

images.tiff: Fix partial refactor rollback and offeset typo.

db4
Doug Coleman 2015-02-13 20:53:36 -08:00
parent 7f40cadf8b
commit ec896cd5ad
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/images/tiff/tiff.factor
View File

@ -9,7 +9,7 @@ IN: images.tiff
SINGLETON: tiff-image SINGLETON: tiff-image
TUPLE: loading-tiff endianness the-answer ifd-offset ifd-offsets ifds ; TUPLE: loading-tiff endianness the-answer ifd-offset ifds ;
: <loading-tiff> ( -- tiff ) : <loading-tiff> ( -- tiff )
loading-tiff new loading-tiff new
@ -347,7 +347,7 @@ ERROR: bad-small-ifd-type n ;
{ 10 [ 8 group [ "ii" unpack first2 / ] map ] } { 10 [ 8 group [ "ii" unpack first2 / ] map ] }
{ 11 [ 4 group [ "f" unpack ] map ] } { 11 [ 4 group [ "f" unpack ] map ] }
{ 12 [ 8 group [ "d" unpack ] map ] } { 12 [ 8 group [ "d" unpack ] map ] }
[ "offeset-bytes>obj" unknown-ifd-type ] [ "offset-bytes>obj" unknown-ifd-type ]
} case ; } case ;
: ifd-entry-value ( ifd-entry -- n ) : ifd-entry-value ( ifd-entry -- n )