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

Fix basic info.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-29 18:35:26 +02:00
parent 0c7cf11297
commit 2117749d61
4 changed files with 8 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

5
member-fees.scm
View file

@ -49,7 +49,8 @@
month
ansi
table
members-base)
members-base
period)
;; Returns a list of months where each month is a list containing:
;; * month (from month module)
@ -59,7 +60,7 @@
(let ((last-month (if (null? args)
(*current-month*)
(car args))))
(let loop ((cm (member-record-info mr 'joined))
(let loop ((cm (period-since (member-record-info mr 'member)))
(cal '()))
(if (month>? cm last-month)
(reverse cal)