From 704c32013173ff99ee73314e88e7fced12cedb7e Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 26 Mar 2012 06:33:37 -0600 Subject: [PATCH] unbreak DrRacket --- collects/drracket/private/drracket-normal.rkt | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/collects/drracket/private/drracket-normal.rkt b/collects/drracket/private/drracket-normal.rkt index cd2455ac83..e5dc6563cc 100644 --- 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)