fix a stack effect

db4
Doug Coleman 2009-09-28 15:59:02 -05:00
parent 69229032c2
commit 8755f0bba0
1 changed files with 1 additions and 1 deletions

View File

@ -556,7 +556,7 @@ ERROR: unknown-component-order ifd ;
: process-tif-ifds ( loading-tiff -- )
ifds>> [ process-ifd ] each ;
: load-tiff ( path -- loading-tiff )
: load-tiff ( stream -- loading-tiff )
[ load-tiff-ifds dup ]
[
[ [ 0 seek-absolute ] dip stream-seek ]