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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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