Add support for member record payments.
This commit is contained in:
parent
29aa9d9eba
commit
99514ff7fe
1 changed files with 13 additions and 0 deletions
|
@ -63,6 +63,9 @@
|
||||||
|
|
||||||
member<?
|
member<?
|
||||||
|
|
||||||
|
member-record-add-payment
|
||||||
|
member-payments
|
||||||
|
|
||||||
member-record-tests!
|
member-record-tests!
|
||||||
)
|
)
|
||||||
|
|
||||||
|
@ -332,6 +335,16 @@
|
||||||
(string-ci<? (member-nick a)
|
(string-ci<? (member-nick a)
|
||||||
(member-nick b)))
|
(member-nick b)))
|
||||||
|
|
||||||
|
;; Prepends new payment to given member record payments
|
||||||
|
(define (member-record-add-payment mr pt)
|
||||||
|
(dict-set mr 'payments
|
||||||
|
(cons pt
|
||||||
|
(dict-ref mr 'payments '()))))
|
||||||
|
|
||||||
|
;; Returns alist of member payments
|
||||||
|
(define (member-payments mr)
|
||||||
|
(dict-ref mr 'payments '()))
|
||||||
|
|
||||||
;; Self-tests
|
;; Self-tests
|
||||||
(define (member-record-tests!)
|
(define (member-record-tests!)
|
||||||
(run-tests
|
(run-tests
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue