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

Fix most members base filters.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-04 22:57:14 +02:00
parent f2874ebe5d
commit 08a2eb2251
3 changed files with 18 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/members-base.scm
View file

@ -207,10 +207,12 @@
;; 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))
(dict-set mb
'members
(map (lambda (mr)
(if (pred? mr)
(proc mr)
mr))
(members-base-members mb))))
)