brmlab/hackerbase
4
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

4
src/members-payments.scm
View file

@ -219,10 +219,10 @@
mb
(lambda (mr)
(let ((total (member-total-balance mr))
(fee (lookup-member-fee (if (member-student? mr)
(fee (lookup-member-fee (if (brmember-student? mr)
'student
'regular))))
(and (member-active? mr)
(and (brmember-active? mr)
(< total 0)
(< total (- (* months fee))))))))