suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

racket/draw/gif: recognize #xFF extension block

Browse Source 
Merge to v6.0
This commit is contained in:
Matthew Flatt 2013-11-27 13:33:20 -07:00
parent 2312e3b9e6
commit 72ba0c9879
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
pkgs/draw-pkgs/draw-lib/racket/draw/gif.rkt
View File

@ -162,8 +162,9 @@
(let ([t (read-byte p)]) ; transparent color (let ([t (read-byte p)]) ; transparent color
(read-byte p) ; 0-sized block (read-byte p) ; 0-sized block
(loop parsed-blocks t))] (loop parsed-blocks t))]
[(= ext #xFE) [(or (= ext #xFE)
;; comment block (= ext #xFF))
;; comment block or app data
(let loop () (let loop ()
(let ([size (read-byte p)]) (let ([size (read-byte p)])
(unless (zero? size) (unless (zero? size)