...
original commit: 4772af2639235287687cd3b399b764b131ae1912
This commit is contained in:
parent
5133e2714a
commit
a2b229b634
|
@ -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)))]
|
||||
|
|
Loading…
Reference in New Issue
Block a user