Signal errors in month format.
This commit is contained in:
parent
e861e31a53
commit
5e28f91341
1 changed files with 6 additions and 1 deletions
|
@ -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
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue