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

Support cal-day in joined/destroyed.

Browse source
This commit is contained in:
Dominik Pantůček 2023-05-21 20:22:15 +02:00
parent 9a55a56c6a
commit 82a4742914
3 changed files with 7 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/members-fees.scm
View file

@ -74,7 +74,8 @@
(let ((last-month (if (null? args)
(*current-month*)
(car args)))
(first-month (cal-period-since (car (brmember-info mr 'member)))))
(first-month (cal-ensure-month
(cal-period-since (car (brmember-info mr 'member))))))
(let loop ((cm first-month)
(cal '()))
(if (cal-month>? cm last-month)