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

work around problem with ".ico" file handling

Browse Source
This commit is contained in:
Matthew Flatt 2013-09-13 21:17:26 -06:00
parent c0462d0fed
commit e7090b8365
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
racket/collects/file/ico.rkt
View File

@ -417,6 +417,10 @@
h h
(lambda (p) (split-bits (byte->integer p))) (lambda (p) (split-bits (byte->integer p)))
append)]) append)])
;; The following check is commented out, because the "start.ico" file
;; for the GUI package manager has an extra 128 0s --- and I don't know
;; why. Maybe extra padding is allowed.
#;
(unless (eof-object? (read-byte p)) (unless (eof-object? (read-byte p))
(error 'parse-dib "not extactly at end")) (error 'parse-dib "not extactly at end"))
(list main-image mask))))))) (list main-image mask)))))))