From 37f39120e773860b541b99e25d9158f75051f806 Mon Sep 17 00:00:00 2001
From: Jakob L. Kreuze
Date: Thu, 2 May 2019 15:39:15 -0400
Subject: Remove unused functions

---
 haunt.scm | 5 -----
 1 file changed, 5 deletions(-)

(limited to 'haunt.scm')

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")))))
-- 
cgit v1.3