Fix period with comments usage.

This commit is contained in:
Dominik Pantůček 2023-03-27 17:31:47 +02:00
parent ae8b994a39
commit 1a14fd2bc4
2 changed files with 6 additions and 3 deletions

View file

@ -45,7 +45,8 @@
utils utils
table table
listing listing
ansi) ansi
period)
;; Prints human-readable information ;; Prints human-readable information
(define (print-member-info mr) (define (print-member-info mr)
@ -109,8 +110,8 @@
(map (map
(lambda (p) (lambda (p)
(list (list
(month->string (car p)) (month->string (period-since p))
(month->string (cdr p)))) (month->string (period-before p))))
v)) v))
#:col-border #t))) #:col-border #t)))
(else (else

View file

@ -28,6 +28,8 @@
(module (module
period period
( (
period-since
period-before
period-markers->periods period-markers->periods
periods-duration periods-duration
month-in-periods? month-in-periods?