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

Allow simple updating of members database.

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

10
members-base.scm
View file

@ -38,6 +38,7 @@
members-base-stats members-base-stats
get-free-members-ids get-free-members-ids
gen-member-id gen-member-id
members-base-update
) )
(import scheme (import scheme
@ -187,4 +188,13 @@
(vfids (list->vector fids))) (vfids (list->vector fids)))
(vector-ref vfids (pseudo-random-integer (vector-length vfids))))) (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))
) )