From 7b488f8e0760c511b6a123b6d4e3d956aa3f8849 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 23 Aug 2001 22:01:07 +0000 Subject: [PATCH] no message original commit: 2231a361db45360fbe4a2cf178af50dc4e57ae94 --- collects/framework/splash.ss | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/framework/splash.ss b/collects/framework/splash.ss index abed8448..78e2a930 100644 --- a/collects/framework/splash.ss +++ b/collects/framework/splash.ss @@ -58,7 +58,7 @@ (define (close-splash) (unless (= splash-max-width splash-current-width) - (set-resource (get-splash-width-resource) (max 1 splash-current-width))) + (splash-set-resource (get-splash-width-resource) (max 1 splash-current-width))) (set! quit-on-close? #f) (when splash-frame (send splash-frame show #f))) @@ -67,7 +67,7 @@ (set! splash-load-handler (lambda (old-load f) (old-load f)))) (define funny? - '(let ([date (seconds->date (current-seconds))]) + (let ([date (seconds->date (current-seconds))]) (and (= (date-day date) 25) (= (date-month date) 12)))) @@ -135,7 +135,7 @@ (if (get-resource "mred" name b #f) (unbox b) default))) - (define (set-resource name value) + (define (splash-set-resource name value) (write-resource "mred" name value (find-graphical-system-path 'setup-file))) (define (splitup-path f)