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

Merge branch 'master' of git://factorcode.org/git/factor

db4
John Benediktsson 2009-02-07 19:33:36 -08:00
parent 5f50e6daf4 c5a3241dae
commit 4540696424
1 changed files with 2 additions and 2 deletions
extra/graphics/tiff

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

@ -169,7 +169,7 @@ ERROR: bad-tiff-magic bytes ;
: read-ifds ( tiff -- tiff )
[
dup ifd-offset>> seek-input
dup ifd-offset>> seek-absolute seek-input
2 read endian>
dup [ read-ifd ] replicate
4 read endian>
@ -184,7 +184,7 @@ ERROR: bad-tiff-magic bytes ;
dup count>> 1 = [
offset>>
] [
[ offset>> seek-input ] [ count>> read ] bi
[ offset>> seek-absolute seek-input ] [ count>> read ] bi
] if ;
: process-ifd-entry ( ifd-entry -- object )