Remove unused functions

1 files changed, 0 insertions, 5 deletions

diff --git a/haunt.scm b/haunt.scm
index 3b4acaf..821229a 100644
--- a/haunt.scm
+++ b/haunt.scm
@@ -36,11 +36,6 @@
              (ice-9 match)
              (web uri))
 
-(define (date year month day)
-  "Create a SRFI-19 date for the given YEAR, MONTH, DAY"
-  (let ((tzoffset (tm:gmtoff (localtime (time-second (current-time))))))
-    (make-date 0 0 0 0 day month year tzoffset)))
-
 (define (stylesheet name)
   `(link (@ (rel "stylesheet")
             (href ,(string-append "/css/" name ".css")))))