From fc6e1360da3dc85d23f637c857342d497ce2b085 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:51:49 +0200
Subject: [PATCH] Allow simple updating of members database.

---
 members-base.scm | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/members-base.scm b/members-base.scm
index 3e72612..dea3c93 100644
--- a/members-base.scm
+++ b/members-base.scm
@@ -38,6 +38,7 @@
   members-base-stats
   get-free-members-ids
   gen-member-id
+  members-base-update
   )
 
  (import scheme
@@ -187,4 +188,13 @@
 	  (vfids (list->vector fids)))
      (vector-ref vfids (pseudo-random-integer (vector-length vfids)))))
 
+ ;; Returns new members base with member records matching the
+ ;; predicate processed by proc.
+ (define (members-base-update mb pred? proc)
+   (map (lambda (mr)
+	  (if (pred? mr)
+	      (proc mr)
+	      mr))
+	mb))
+
  )