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

..

Browse Source 
original commit: b3bf28d470b7da8d6d917d46e9b1811883d3d7ad
This commit is contained in:
Robby Findler 2003-07-02 20:22:44 +00:00
parent 0ee1729136
commit a99bfb44a7
1 changed files with 16 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
collects/framework/private/bday.ss
View File

@ -1,25 +1,18 @@
(module bday mzscheme (module bday mzscheme
(provide mrf-bday? (require "encode-decode.ss")
mf-bday?
sk-bday?)
;; mf-bday? : -> boolean (decode ad8fbd0ec2300c845fc5
;; Matthias's birthday a33344a2880106e059d2
(define (mf-bday?) da8508e2a03445e2ed71
(let ([date (seconds->date (current-seconds))]) 49cbff84f0743eebfce9
(and (= (date-month date) 10) b0e69d17c0538a674f0c
(= (date-day date) 29)))) 21b5b62677d942984477
28c20012b75e1870baa9
;; mrf-bday? : -> boolean 75e40c88e4b2da1d3751
;; Matthew's birthday a8b39bb2367d4a2cd98e
(define (mrf-bday?) b6d1017442806bb8256c
(let ([d (seconds->date (current-seconds))]) 8892f7304803d5cc3c0e
(and (= (date-month d) 11) fa7cb4e7ab92bba3d307
(= (date-day d) 1)))) fb77b052ab77aa7aafc4
a7fe7f2bbbf8da7539a4
;; sk-bday? : -> boolean cc15))
;; Shriram's birthday
(define (sk-bday?)
(let ([date (seconds->date (current-seconds))])
(and (= (date-month date) 4)
(= (date-day date) 8)))))