unbreak DrRacket

2012-03-26 06:33:37 -06:00 · 2012-03-26 06:33:37 -06:00 · 704c320131
commit 704c320131
parent 9143c1c7df
1 changed files with 3 additions and 1 deletions
--- a/collects/drracket/private/drracket-normal.rkt
+++ b/collects/drracket/private/drracket-normal.rkt
@ -132,7 +132,9 @@
    [(currently-the-weekend?)
     weekend-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)

 (when (eq? (system-type) 'macosx)