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

seek -> new seeking

db4
Doug Coleman 2009-02-07 11:35:13 -06:00
parent 959ef7a737
commit f499cab2fb
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 )
[
dup ifd-offset>> seek
dup ifd-offset>> 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 ] [ count>> read ] bi
[ offset>> seek-input ] [ count>> read ] bi
] if ;
: process-ifd-entry ( ifd-entry -- object )