Signal errors in month format.

This commit is contained in:
Dominik Pantůček 2023-03-28 13:10:07 +02:00
parent e861e31a53
commit 5e28f91341

View file

@ -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