From a99bfb44a773e6891e5612f2ad5157d20b0af913 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Wed, 2 Jul 2003 20:22:44 +0000
Subject: [PATCH] ..

original commit: b3bf28d470b7da8d6d917d46e9b1811883d3d7ad
---
 collects/framework/private/bday.ss | 39 ++++++++++++------------------
 1 file changed, 16 insertions(+), 23 deletions(-)

diff --git a/collects/framework/private/bday.ss b/collects/framework/private/bday.ss
index db2abd16..5192bdd7 100644
--- 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))
\ No newline at end of file