From ee31a373b73321951938b01ea7a327ae30a126d3 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Sat, 19 Apr 2003 22:17:28 +0000
Subject: [PATCH] ..

original commit: 22ac64e877a20134acb31291c54fdadcf799e06c
---
 collects/framework/private/bday.ss | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/collects/framework/private/bday.ss b/collects/framework/private/bday.ss
index 2ebd821a..db2abd16 100644
--- a/collects/framework/private/bday.ss
+++ b/collects/framework/private/bday.ss
@@ -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)))))
\ No newline at end of file
+            (= (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)))))