From 488499cf23cca23529d02abddfa9770c078cf19a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Tue, 10 Sep 2024 18:49:19 +0200
Subject: [PATCH] When creating cal-period, ensure months for periods.

---
 src/cal-period.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/cal-period.scm b/src/cal-period.scm
index ea1cf3d..e88954c 100644
--- a/src/cal-period.scm
+++ b/src/cal-period.scm
@@ -138,7 +138,10 @@
 			    (not (null? (cdr args))))
 		       (cadr args)
 		       #f)))
-     (list TAG-CAL-PERIOD since before scomment bcomment)))
+     (list TAG-CAL-PERIOD
+	   (if since (cal-ensure-month since) since)
+	   (if before (cal-ensure-month before) before)
+	   scomment bcomment)))
 
  ;; Simple accessors
  (define cal-period-since cadr)