From 0a3fcb20ab5a7a30a0dd81b3daa94d260a910c58 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 26 Mar 2012 07:49:13 -0500 Subject: [PATCH] re-unbreak DrRacket (cherry picked from commit bef9e11272c3e1c9cb99ca275aa6df91eed5994c) --- collects/drracket/private/drracket-normal.rkt | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/collects/drracket/private/drracket-normal.rkt b/collects/drracket/private/drracket-normal.rkt index e5dc6563cc5..f3c0e36faa2 100644 --- a/collects/drracket/private/drracket-normal.rkt +++ b/collects/drracket/private/drracket-normal.rkt @@ -132,10 +132,10 @@ [(currently-the-weekend?) weekend-bitmap-spec] [else normal-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) + +(define the-splash-bitmap (and (path? the-bitmap-spec) (read-bitmap the-bitmap-spec))) +(when the-splash-bitmap + (set-splash-char-observer drracket-splash-char-observer)) (when (eq? (system-type) 'macosx) (define initial-state (current-icon-state)) @@ -171,7 +171,8 @@ (set-icon next-state)) (loop next-state)))))) -(start-splash the-splash-bitmap +(start-splash (or the-splash-bitmap + the-bitmap-spec) "DrRacket" 700 #:allow-funny? #t