fix a stack effect

Doug Coleman 2009-09-28 15:59:02 -05:00
parent 4d0ca37fb0
commit 06d291fd88
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 ]