From 8755f0bba0a5af31d9ba0f8710609da2cc7705c0 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Mon, 28 Sep 2009 15:59:02 -0500 Subject: [PATCH] fix a stack effect --- basis/images/tiff/tiff.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/basis/images/tiff/tiff.factor b/basis/images/tiff/tiff.factor index dfc3c8b441..f0a8bb4891 100755 --- a/basis/images/tiff/tiff.factor +++ b/basis/images/tiff/tiff.factor @@ -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 ]