suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

.

Browse Source 
original commit: e6614d7a1d6d2fc7980493e66ffe15120e8aa08c
This commit is contained in:
Robby Findler 2004-03-22 21:27:19 +00:00
parent ee784bf24b
commit 9702ceadcb
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/framework/splash.ss
View File

@ -86,7 +86,7 @@
(define funny? (define funny?
(let ([date (seconds->date (current-seconds))]) (let ([date (seconds->date (current-seconds))])
(and (with-handlers ([not-break-exn? (lambda (x) #f)]) (and (with-handlers ([exn:fail:filesystem? (lambda (x) #f)])
(collection-path "icons") (collection-path "icons")
#t) #t)
(= (date-day date) 25) (= (date-day date) 25)