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

Start fees table rework using new primitives.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-03 12:01:14 +02:00
parent ea9c76d2fc
commit f2e47b9ad3
5 changed files with 101 additions and 88 deletions
Download patch file Download diff file Expand all files Collapse all files

15
src/member-record.scm
View file

@ -67,8 +67,6 @@
member-record-add-payment
member-payments
member-balance
member-total-balance
member-record-tests!
)
@ -357,19 +355,6 @@
(define (member-payments mr)
(dict-ref mr 'payments '()))
;; Balances totals
(define (member-balance mr)
(dict-ref mr 'balance (make-dict)))
;; Computes total member balance from credit, fees and payment
;; information
(define (member-total-balance mr)
(let* ((bal (member-balance mr))
(fees (dict-ref bal 'fees 0))
(credit (dict-ref bal 'credit 0))
(payment (dict-ref bal 'payment)))
(- (+ credit payment) fees)))
;; Self-tests
(define (member-record-tests!)
(run-tests