Finish period documentation, cleanup period usage.

This commit is contained in:
Dominik Pantůček 2023-03-22 22:58:02 +01:00
parent 9385745cf7
commit 4196e95118
3 changed files with 41 additions and 14 deletions

View file

@ -185,8 +185,7 @@
(define (convert-member-key:markers->periods m k)
(if (dict-has-key? m k)
(let* ((res (period-markers->periods
(sort-period-markers
(dict-ref m k '()))))
(dict-ref m k '())))
(ok? (car res))
(periods (cadr res))
(msg (caddr res))