brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Signal errors in month format.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-28 13:10:07 +02:00
parent e861e31a53
commit 5e28f91341
1 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
member-parser.scm
View file

@ -86,7 +86,12 @@
mr1 mr1
(member-record-add-highlight mr1 line-number msg 3 'error)))) (member-record-add-highlight mr1 line-number msg 3 'error))))
((joined) ((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) ((card desfire)
(member-record-sub-set mr output key (member-record-sub-set mr output key
(map (map