Fix current month and print it.
This commit is contained in:
parent
922b178519
commit
ac01370c67
3 changed files with 4 additions and 2 deletions
|
@ -147,7 +147,7 @@
|
|||
(define (member-existing? mr)
|
||||
(let ((joined (mr-ref mr 'joined)))
|
||||
(and joined
|
||||
(month<? joined (*current-month*)))))
|
||||
(month<=? joined (*current-month*)))))
|
||||
|
||||
;; Member formatting function for general use.
|
||||
(define (member-format fmt mr)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue