From b4ca9daf27113eba1e92656280232ae168d27d14 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Wed, 26 Jan 2011 17:23:30 -0800 Subject: [PATCH] images.gif: the Graphics Control Block is OPTIONAL in the GIF spec. --- extra/images/gif/gif.factor | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/extra/images/gif/gif.factor b/extra/images/gif/gif.factor index b06210fc00..8d4b118d16 100644 --- 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