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

Use new current month/day forms.

Browse source
This commit is contained in:
Dominik Pantůček 2023-06-22 21:51:08 +02:00
parent 03520fc63b
commit fc0d87cbdd
4 changed files with 51 additions and 45 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/mbase.scm
View file

@ -236,8 +236,8 @@
(let mloop ((data '())
(month (members-base-oldest-month mb)))
(if (cal-month<? month (*current-month*))
(let ((bi (parameterize ((*current-month* month))
(mbase-info mb))))
(let ((bi (with-current-month month
(mbase-info mb))))
(let kloop ((row (list (ldict-ref bi 'month)))
(keys (cdr keys)))
(if (null? keys)