Fix basic info.
This commit is contained in:
parent
0c7cf11297
commit
2117749d61
4 changed files with 8 additions and 17 deletions
|
@ -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)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue