..

original commit: b3bf28d470b7da8d6d917d46e9b1811883d3d7ad
2003-07-02 20:22:44 +00:00 · 2003-07-02 20:22:44 +00:00 · a99bfb44a7
commit a99bfb44a7
parent 0ee1729136
1 changed files with 16 additions and 23 deletions
--- a/collects/framework/private/bday.ss
+++ b/collects/framework/private/bday.ss
@ -1,25 +1,18 @@
 (module bday mzscheme
-  (provide mrf-bday?
-           mf-bday?
-           sk-bday?)
+  (require "encode-decode.ss")
  
-  ;; mf-bday? : -> boolean
-  ;; Matthias's birthday
-  (define (mf-bday?)
-    (let ([date (seconds->date (current-seconds))])
-      (and (= (date-month date) 10)
-           (= (date-day date) 29))))
-  
-  ;; mrf-bday? : -> boolean
-  ;; Matthew's birthday
-  (define (mrf-bday?)
-    (let ([d (seconds->date (current-seconds))])
-       (and (= (date-month d) 11)
-            (= (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)))))
+  (decode ad8fbd0ec2300c845fc5
+          a33344a2880106e059d2
+          da8508e2a03445e2ed71
+          49cbff84f0743eebfce9
+          b0e69d17c0538a674f0c
+          21b5b62677d942984477
+          28c20012b75e1870baa9
+          75e40c88e4b2da1d3751
+          a8b39bb2367d4a2cd98e
+          b6d1017442806bb8256c
+          8892f7304803d5cc3c0e
+          fa7cb4e7ab92bba3d307
+          fb77b052ab77aa7aafc4
+          a7fe7f2bbbf8da7539a4
+          cc15))