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

Prepare for balances in totals table.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-30 19:18:48 +02:00
parent 8f0d5acf0a
commit 606a208237
5 changed files with 40 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

5
member-record.scm
View file

@ -65,6 +65,7 @@
member-record-add-payment
member-payments
member-balances
member-record-tests!
)
@ -345,6 +346,10 @@
(define (member-payments mr)
(dict-ref mr 'payments '()))
;; Balances totals
(define (member-balances mr)
(dict-ref mr 'balances (make-dict)))
;; Self-tests
(define (member-record-tests!)
(run-tests