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

...

Browse Source 
original commit: 4772af2639235287687cd3b399b764b131ae1912
This commit is contained in:
Robby Findler 2000-06-16 12:35:52 +00:00
parent 5133e2714a
commit a2b229b634
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

@ -5,7 +5,7 @@
(lambda (filename title width-default) (lambda (filename title width-default)
(let/ec k (let/ec k
(letrec-values (letrec-values
([(no-splash) (lambda () (k void void))] ([(no-splash) (lambda () (k void void void))]
[(funny?) (let ([date (seconds->date (current-seconds))]) [(funny?) (let ([date (seconds->date (current-seconds))])
(and (= (date-day date) 25) (and (= (date-day date) 25)
(= (date-month date) 12)))] (= (date-month date) 12)))]