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

Add support for member record payments.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-30 15:46:27 +02:00
parent 29aa9d9eba
commit 99514ff7fe
1 changed files with 13 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

13
member-record.scm
View file

@ -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