From 5741aa198e23a0976af2ff04c3c796029ed2f62c Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sat, 14 Feb 2009 19:28:00 -0600
Subject: [PATCH] not all images have associated alpha data... oops

---
 basis/images/tiff/tiff.factor | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/basis/images/tiff/tiff.factor b/basis/images/tiff/tiff.factor
index 29f36495f0..c3505ebec4 100755
--- a/basis/images/tiff/tiff.factor
+++ b/basis/images/tiff/tiff.factor
@@ -359,6 +359,8 @@ ERROR: unknown-component-order ifd ;
                 ] each
             ] change-bitmap
         ] }
+        { extra-samples-unspecified-alpha-data [
+        ] }
         [ bad-extra-samples ]
     } case ;
 
@@ -383,7 +385,7 @@ ERROR: unknown-component-order ifd ;
                 strips>bitmap
                 fix-bitmap-endianness
                 strips-predictor
-                handle-alpha-data
+                dup extra-samples tag? [ handle-alpha-data ] when
                 drop
             ] each
         ] with-endianness