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

Ignore invalid markers.

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

2
configuration.scm
View file

@ -56,6 +56,8 @@
;; 'quiet - ignore ;; 'quiet - ignore
(define *member-file-check-syntax* (make-parameter 'error)) (define *member-file-check-syntax* (make-parameter 'error))
;; Default as specified by the original implementation if the 'joined
;; key is missing in member file.
(define *member-default-joined* (make-parameter (make-month 2015 1))) (define *member-default-joined* (make-parameter (make-month 2015 1)))
) )

5
period.scm
View file

@ -78,7 +78,10 @@
(loop (cdr l) (loop (cdr l)
ps ps
(cdr m))) (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 ;; Returns duration of period in months. Start is included, end is
;; not. The period contains the month just before the specified end. ;; not. The period contains the month just before the specified end.