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

Fix member-record tests.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-29 19:15:24 +02:00
parent c35d6585cc
commit 817a1c8422
2 changed files with 14 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

5
member-fees.scm
View file

@ -59,8 +59,9 @@
(define (member-calendar mr . args)
(let ((last-month (if (null? args)
(*current-month*)
(car args))))
(let loop ((cm (period-since (member-record-info mr 'member)))
(car args)))
(first-month (period-since (car (member-record-info mr 'member)))))
(let loop ((cm first-month)
(cal '()))
(if (month>? cm last-month)
(reverse cal)