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

Period errors reporting.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-20 14:55:37 +01:00
parent 0d127e7200
commit 3c4ebedbb3
2 changed files with 32 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

17
member-file.scm
View file

@ -181,10 +181,19 @@
;; list to periods.
(define (convert-member-key:markers->periods m k)
(if (dict-has-key? m k)
(dict-set m k
(period-markers->periods
(sort-period-markers
(dict-ref m k '()))))
(let* ((res (period-markers->periods
(sort-period-markers
(dict-ref m k '()))))
(ok? (car res))
(periods (cadr res))
(msg (caddr res))
(line-number (cadddr res))
(m1 (dict-set m k periods)))
(if ok?
m1
(dict-set m1 member-file-error-symbol
(cons (list line-number msg)
(dict-ref m1 member-file-error-symbol '())))))
m))
;; Converts all given keys using period-markers->periods.