From 5e28f913419a032f11dcb939834cfc974d2ad7a0 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Tue, 28 Mar 2023 13:10:07 +0200
Subject: [PATCH] Signal errors in month format.

---
 member-parser.scm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/member-parser.scm b/member-parser.scm
index 6f57e8f..07899a3 100644
--- a/member-parser.scm
+++ b/member-parser.scm
@@ -86,7 +86,12 @@
 		  mr1
 		  (member-record-add-highlight mr1 line-number msg 3 'error))))
 	   ((joined)
-	    (member-record-sub-set mr output key (string->month (car value))))
+	    (let* ((month (string->month (car value)))
+		   (mr0 (member-record-sub-set mr output key month)))
+	      (if month
+		  mr0
+		  (member-record-add-highlight
+		   mr0 (cdr value) "Invalid month specification" 3 'error))))
 	   ((card desfire)
 	    (member-record-sub-set mr output key
 				   (map