From 39dd6203210a1a1d7157eab7e854eb79c2ce1cf6 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Thu, 18 May 2000 21:03:10 +0000
Subject: [PATCH] ...

original commit: 94c7d02f207c0c7773db3cdb8e73701dfe1cfc5a
---
 collects/framework/splash.ss | 23 ++++++-----------------
 1 file changed, 6 insertions(+), 17 deletions(-)

diff --git a/collects/framework/splash.ss b/collects/framework/splash.ss
index 86d66cdb..55de0a55 100644
--- a/collects/framework/splash.ss
+++ b/collects/framework/splash.ss
@@ -1,7 +1,8 @@
 ; filename : splash-image-path
 ; title : title of window
+; width-default : number 
 
-(lambda (filename title width-default depth-default)
+(lambda (filename title width-default)
   (let/ec k
     (letrec-values
 	([(no-splash) (lambda () (k void void))]
@@ -102,22 +103,10 @@
 	    (when (<= splash-current-width splash-max-width)
 	      (send gauge set-value splash-current-width)))]
 	 [(splash-load-handler)
-	  (let ([depth 0])
-	    (lambda (old-load f)
-	      (let ([error? #t]
-		    [finalf (splitup-path f)])
-		(dynamic-wind
-		 (lambda () (void))
-		 (lambda ()
-		   (inc-splash)
-		   (set! depth (+ depth 1))
-		   (begin0 (old-load f)
-			   (set! error? #f)))
-		 (lambda ()
-		   (if error?
-		       (shutdown-splash)
-		       (begin (set! depth (- depth 1))
-			      #t)))))))]
+	  (lambda (old-load f)
+	    (let ([finalf (splitup-path f)])
+	      (inc-splash)
+	      (old-load f)))]
 	 [(_4) (current-load
 		(let ([old-load (current-load)])
 		  (lambda (f)