From 244ba9566d90293f9fd8534893bb85906ec8acba Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@hornquist.se>
Date: Fri, 27 Dec 2019 17:09:44 +0100
Subject: Remove faulty next-month.

---
 module/output/html.scm | 3 ---
 1 file changed, 3 deletions(-)

(limited to 'module/output/html.scm')

diff --git a/module/output/html.scm b/module/output/html.scm
index 0f6fbbd0..ef4045b3 100644
--- a/module/output/html.scm
+++ b/module/output/html.scm
@@ -174,9 +174,6 @@
 (define (previous-month n)
   (1+ (modulo (- n 2) 12)))
 
-(define (next-month n)
-  (1+ (modulo n 12)))
-
 (define (td param)
   (lambda (d) `(td (@ ,(map (lambda (p)
                          (cons `(quote ,(car p))
-- 
cgit v1.2.3