Add to total table.

This commit is contained in:
Dominik Pantůček 2023-03-30 19:37:53 +02:00
parent 606a208237
commit 70e33d21d1
3 changed files with 15 additions and 10 deletions

View file

@ -65,7 +65,7 @@
member-record-add-payment
member-payments
member-balances
member-balance
member-record-tests!
)
@ -347,8 +347,8 @@
(dict-ref mr 'payments '()))
;; Balances totals
(define (member-balances mr)
(dict-ref mr 'balances (make-dict)))
(define (member-balance mr)
(dict-ref mr 'balance (make-dict)))
;; Self-tests
(define (member-record-tests!)