images.gif: the Graphics Control Block is OPTIONAL in the GIF spec.

diff --git a/extra/images/gif/gif.factor b/extra/images/gif/gif.factor
index b06210fc00a83d86c0dd7db5039c868ce4dac058..8d4b118d161f8796ce19df621947e846372a83f6 100644 (file)
--- a/extra/images/gif/gif.factor
+++ b/extra/images/gif/gif.factor
@@ -140,7 +140,8 @@ ERROR: unimplemented message ;
 : sort? ( image -- ? ) flags>> 5 bit? ; inline
 : color-table-size ( image -- ? ) flags>> 3 bits 1 + 2^ 3 * ; inline
 : transparency? ( image -- ? )
-    graphic-control-extensions>> first flags>> 0 bit? ; inline
+    graphic-control-extensions>>
+    [ f ] [ first flags>> 0 bit? ] if-empty ; inline
 
 : color-resolution ( image -- ? ) flags>> -4 shift 3 bits ; inline