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

Regular predicates.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-11 22:32:07 +02:00
parent bf2b8ef23a
commit 4bd6837e08
6 changed files with 51 additions and 51 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/members-base.scm
View file

@ -163,13 +163,13 @@
(di1 (ldict-set di0 'invalid
(filter (compose not is-4digit-prime? member-id) members)))
(di2 (ldict-set di1 'active
(filter member-active? members)))
(filter brmember-active? members)))
(di3 (ldict-set di2 'suspended
(filter member-suspended? members)))
(filter brmember-suspended? members)))
(di4 (ldict-set di3 'students
(filter member-student? members)))
(filter brmember-student? members)))
(di5 (ldict-set di4 'destroyed
(filter member-destroyed? members)))
(filter brmember-destroyed? members)))
(di6 (ldict-set di5 'month (*current-month*)))
(di7 (ldict-set di6 'total members)))
di7))
@ -240,7 +240,7 @@
(map
(lambda (mr)
(brmember-info mr 'mail))
(filter member-active?
(filter brmember-active?
(members-base-members mb))))
string-ci<?))