From b6e357919dccc81d166fda4ba1517cc2d673fd9a Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Tue, 3 Nov 2009 15:11:51 +0000
Subject: [PATCH] removed dead code

svn: r16517

original commit: 0aad314a68363b1e3d0058d52d657cee58d7b050
---
 collects/framework/splash.ss | 31 ++++++++-----------------------
 1 file changed, 8 insertions(+), 23 deletions(-)

diff --git a/collects/framework/splash.ss b/collects/framework/splash.ss
index 1c2e4122..d2470f65 100644
--- a/collects/framework/splash.ss
+++ b/collects/framework/splash.ss
@@ -185,15 +185,14 @@
          (= (date-month date) 12))))
 
 (define (splash-load-handler old-load f expected)
-  (let ([finalf (splitup-path f)])
-    (set! splash-current-width (+ splash-current-width 1))
-    (when (<= splash-current-width splash-max-width)
-      (send gauge set-value splash-current-width)
-      (when (or (not (member gauge (send gauge-panel get-children)))
-                ;; when the gauge is not visible, we'll redraw the canvas
-                (refresh-splash-on-gauge-change? splash-current-width splash-max-width))
-        (refresh-splash)))
-    (old-load f expected)))
+  (set! splash-current-width (+ splash-current-width 1))
+  (when (<= splash-current-width splash-max-width)
+    (send gauge set-value splash-current-width)
+    (when (or (not (member gauge (send gauge-panel get-children)))
+              ;; when the gauge is not visible, we'll redraw the canvas
+              (refresh-splash-on-gauge-change? splash-current-width splash-max-width))
+      (refresh-splash)))
+  (old-load f expected))
 
 (let-values ([(make-compilation-manager-load/use-compiled-handler
                manager-trace-handler)
@@ -277,20 +276,6 @@
 (define (splash-set-preference name value)
   (put-preferences (list name) (list value)))
 
-(define (splitup-path f)
-  (let*-values ([(absf) (if (relative-path? f)
-                            (build-path (current-directory) f)
-                            f)]
-                [(base name _1) (split-path absf)])
-    
-    (if base
-        (let-values ([(base2 name2 _2) (split-path base)])
-          (if base2
-              (let-values ([(base3 name3 _2) (split-path base2)])
-                (build-path name3 name2 name))
-              (build-path name2 name)))
-        name)))
-
 (define quit-on-close? #t)
 
 (define splash-frame%