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

Add max suspended months to specification.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-12 20:48:10 +02:00
parent 0fa45c375b
commit 3b67044a6f
5 changed files with 22 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/members-print.scm
View file

@ -60,7 +60,8 @@
bank-account
members-fees
members-payments
brmember-format)
brmember-format
specification)
;; Prints human-readable information
(define (print-member-info mr)
@ -273,7 +274,7 @@
(let ((suspended2 (filter
(lambda (mr)
(>= (brmember-suspended-months mr)
(*member-suspend-max-months*)))
member-suspend-max-months))
suspended-mrs)))
(if (null? suspended2)
#f