From 99514ff7fe8e8145c20916b3a5504d540b4bdf58 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Thu, 30 Mar 2023 15:46:27 +0200
Subject: [PATCH] Add support for member record payments.

---
 member-record.scm | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/member-record.scm b/member-record.scm
index 1207d43..78a2e8c 100644
--- a/member-record.scm
+++ b/member-record.scm
@@ -63,6 +63,9 @@
 
   member<?
 
+  member-record-add-payment
+  member-payments
+
   member-record-tests!
   )
 
@@ -332,6 +335,16 @@
    (string-ci<? (member-nick a)
 		(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
  (define (member-record-tests!)
    (run-tests