diff --git a/collects/framework/private/bday.rkt b/collects/framework/private/bday.rkt index 7f6e6890..a674f74c 100644 --- a/collects/framework/private/bday.rkt +++ b/collects/framework/private/bday.rkt @@ -1,34 +1,6 @@ #lang s-exp framework/private/decode - - TY+9Ds - IwDIT3P - MWN9hCJA - hIwAA - +CGN - rGFR - UkRW - lA4u - 1JaF - K6ne - /zz1n - R0w/v - 3gis73R - j6s8Zto - jxn oU0 - k2Cl yEjX - OwFR cmBh - mBVA Dwmg - i6lD RKO0 - gzOj Pk1l - +/Je XNDZ - Zr6m iThT - OwM6 glKb - toML NyTJ - sPz3 05XJ - jZd4 kaCE - iot+ UbDD - ZhUb Cp/f - yLxa YX1Y - 8vnh zCug - WvD5 +7J/C - +wj/ \wI=;; +bZFPT8MwDMXv/RRPOzmHSCsgAQeGEOsNAVp3QxzaxR0VJEVJNolvT5Kl3fiT04t/z45jF/Rp +h32vGNp2slXN1y30KNx7FtwehCgKUtz1hkEUI9BQQhQAfbAHvajGB+R4Mxjl5CJdA/1xstUF +F2jLns0es+eH9XJV3dXralVX90+Py3omXsXv1JDcd4iZf0miztvebOXC7HTLNjn/KZKsm521 +bLzMzYpw8oPUGAW6AcX2pR6Mf0OUAloc4/H3h6iKucfJjMMKhdKIcInzeTCMfBpv5uUcZ9en +fFpE5iVQnvBpK2P9C+Aq8G8= diff --git a/collects/framework/splash.rkt b/collects/framework/splash.rkt index 65e22378..797e7e67 100644 --- a/collects/framework/splash.rkt +++ b/collects/framework/splash.rkt @@ -240,7 +240,10 @@ (set! splash-load-handler (λ (old-load f expected) (old-load f expected)))) (define funny? - (let ([date (seconds->date (current-seconds))]) + (let ([date (seconds->date (let ([ssec (getenv "PLTDREASTERSECONDS")]) + (if ssec + (string->number ssec) + (current-seconds))))]) (and (with-handlers ([exn:fail:filesystem? (λ (x) #f)]) (collection-path "icons") #t)