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

Destroyed, students, suspended predicates and base info.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-19 07:53:48 +01:00
parent 4b453162cf
commit faf18b928e
3 changed files with 20 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

7
member-record.scm
View file

@ -98,9 +98,14 @@
(month-in-periods? periods))))
;; Returns true if the member is now suspended
(define member-suspended?
(define member-is-suspended?
(member-period-predicate? 'suspend))
;; Suspended must not be destroyed
(define (member-suspended? mr)
(and (member-is-suspended? mr)
(not (member-destroyed? mr))))
;; True if the member is student
(define member-is-student?
(member-period-predicate? 'student))