Merge branch 'gif' of git://github.com/klazuka/factor

[factor.git] / basis / images / tiff / tiff.factor

diff --git a/basis/images/tiff/tiff.factor b/basis/images/tiff/tiff.factor
index d8f7b09ed7d36378ee4038aa2f5622c49ae25119..4a82545d79c1681cd7e99c293c2b822885a00d8c 100755 (executable)
--- a/basis/images/tiff/tiff.factor
+++ b/basis/images/tiff/tiff.factor
@@ -7,6 +7,7 @@ io.encodings.string io.encodings.utf8 io.files kernel math
 math.bitwise math.order math.parser pack prettyprint sequences
 strings math.vectors specialized-arrays locals
 images.loader ;
+FROM: alien.c-types => float ;
 SPECIALIZED-ARRAY: float
 IN: images.tiff
 
@@ -555,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 ]