original commit: 4772af2639235287687cd3b399b764b131ae1912
This commit is contained in:
Robby Findler 2000-06-16 12:35:52 +00:00
parent 5133e2714a
commit a2b229b634

View File

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