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

Rename source and info.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-11 22:11:11 +02:00
parent fb98eb6a78
commit 3ef6c0b628
7 changed files with 18 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/member-fees.scm
View file

@ -76,7 +76,7 @@
(let ((last-month (if (null? args)
(*current-month*)
(car args)))
(first-month (period-since (car (member-record-info mr 'member)))))
(first-month (period-since (car (brmember-info mr 'member)))))
(let loop ((cm first-month)
(cal '()))
(if (month>? cm last-month)
@ -165,7 +165,7 @@
;; Total credit manually recorded in member record
(define (member-credit-total mr)
(let* ((credit (member-record-info mr 'credit '()))
(let* ((credit (brmember-info mr 'credit '()))
(amounts (map car credit)))
(foldl + 0 amounts)))