Ignore invalid markers.

This commit is contained in:
Dominik Pantůček 2023-03-20 13:59:08 +01:00
parent bc0420bbc0
commit 056644ff66
2 changed files with 6 additions and 1 deletions

View file

@ -78,7 +78,10 @@
(loop (cdr l)
ps
(cdr m)))
(error 'period-markers->periods "Invalid start/stop sequence marker" m))))))
(if (eq? (*member-file-check-syntax*) 'error)
(error 'period-markers->periods "Invalid start/stop sequence marker" m)
(reverse ps) ; Just ignore it for now
))))))
;; Returns duration of period in months. Start is included, end is
;; not. The period contains the month just before the specified end.