original commit: 22ac64e877a20134acb31291c54fdadcf799e06c
This commit is contained in:
Robby Findler 2003-04-19 22:17:28 +00:00
parent 13de451dfa
commit ee31a373b7

View File

@ -1,6 +1,7 @@
(module bday mzscheme
(provide mrf-bday?
mf-bday?)
mf-bday?
sk-bday?)
;; mf-bday? : -> boolean
;; Matthias's birthday
@ -14,4 +15,11 @@
(define (mrf-bday?)
(let ([d (seconds->date (current-seconds))])
(and (= (date-month d) 11)
(= (date-day d) 1)))))
(= (date-day d) 1))))
;; sk-bday? : -> boolean
;; Shriram's birthday
(define (sk-bday?)
(let ([date (seconds->date (current-seconds))])
(and (= (date-month date) 4)
(= (date-day date) 8)))))