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

Use balance struct and move it to member-print-table.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-02 19:02:32 +02:00
parent f9eb053c9a
commit 952fd03f16
2 changed files with 12 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/bbstool.scm
View file

@ -169,17 +169,7 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
(print "Current month: " (month->string (*current-month*)))
(newline)
(if mr
(let ()
(print-member-table mr)
(let* ((fees (member-fees-total mr))
(credit (member-credit-total mr))
(payments (member-payments-total mr))
(balance (- (+ credit payments) fees)))
(print "Total fees: " fees)
(print "Total credit: " credit)
(print "Total payments: " payments)
(print "Balance: " balance)
))
(print-member-table mr)
(print-members-base-table MB))
(newline))
((print-stats)