From 72ba0c98794dccb18bf204d73497be3a1bb9bc55 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 27 Nov 2013 13:33:20 -0700 Subject: [PATCH] racket/draw/gif: recognize #xFF extension block Merge to v6.0 --- pkgs/draw-pkgs/draw-lib/racket/draw/gif.rkt | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/pkgs/draw-pkgs/draw-lib/racket/draw/gif.rkt b/pkgs/draw-pkgs/draw-lib/racket/draw/gif.rkt index af99aafc23..d1bab3a9ad 100644 --- a/pkgs/draw-pkgs/draw-lib/racket/draw/gif.rkt +++ b/pkgs/draw-pkgs/draw-lib/racket/draw/gif.rkt @@ -162,8 +162,9 @@ (let ([t (read-byte p)]) ; transparent color (read-byte p) ; 0-sized block (loop parsed-blocks t))] - [(= ext #xFE) - ;; comment block + [(or (= ext #xFE) + (= ext #xFF)) + ;; comment block or app data (let loop () (let ([size (read-byte p)]) (unless (zero? size)