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

Print the credit as well.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-29 14:36:30 +02:00
parent 9cfd4e21e1
commit a48d521b94
2 changed files with 13 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
member-fees.scm
View file

@ -35,6 +35,7 @@
member-calendar->years-table
member-calendar->fees
member-fees-total
member-credit-total
)
(import scheme
@ -138,4 +139,10 @@
(foldl + 0 (member-calendar->fees
(member-calendar mr))))
;; Total credit manually recorded in member record
(define (member-credit-total mr)
(let* ((credit (member-record-info mr 'credit '()))
(amounts (map car credit)))
(foldl + 0 amounts)))
)