Fix current month and print it.

This commit is contained in:
Dominik Pantůček 2023-03-21 20:29:28 +01:00
parent 922b178519
commit ac01370c67
3 changed files with 4 additions and 2 deletions

View file

@ -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)