Fix basic info.

This commit is contained in:
Dominik Pantůček 2023-03-29 18:35:26 +02:00
parent 0c7cf11297
commit 2117749d61
4 changed files with 8 additions and 17 deletions

View file

@ -263,11 +263,10 @@
(and (not (member-destroyed? mr))
(not (member-suspended? mr))))
;; Returns true if the member has joined.
;; Returns true if the member is currently a member
(define (member-existing? mr)
(let ((joined (member-record-info mr 'joined)))
(and joined
(month<=? joined (*current-month*)))))
(month-in-periods?
(member-record-info mr 'member)))
;; Returns a list of flags of given member record.
(define (member-flags mr)