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

unbreak DrRacket

Browse Source
This commit is contained in:
Matthew Flatt 2012-03-26 06:33:37 -06:00
parent 9143c1c7df
commit 704c320131
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/drracket/private/drracket-normal.rkt
View File

@ -132,7 +132,9 @@
[(currently-the-weekend?) [(currently-the-weekend?)
weekend-bitmap-spec] weekend-bitmap-spec]
[else normal-bitmap-spec])) [else normal-bitmap-spec]))
(define the-splash-bitmap (read-bitmap the-bitmap-spec)) (define the-splash-bitmap (if (path? the-bitmap-spec)
(read-bitmap the-bitmap-spec)
the-bitmap-spec))
(set-splash-char-observer drracket-splash-char-observer) (set-splash-char-observer drracket-splash-char-observer)
(when (eq? (system-type) 'macosx) (when (eq? (system-type) 'macosx)