Use new current month/day forms.

2023-06-22 21:51:08 +02:00 · 2023-06-22 21:51:08 +02:00 · fc0d87cbdd
commit fc0d87cbdd
parent 03520fc63b
4 changed files with 51 additions and 45 deletions
--- a/src/members-fees.scm
+++ b/src/members-fees.scm
@ -83,9 +83,9 @@
 	   (reverse cal)
 	   (loop (cal-month-add cm)
 		 (cons (list cm
-			     (parameterize ((*current-month* cm)
-					    (*current-day* (cal-ensure-day cm)))
-			       (brmember-flags mr)))
+			     (with-current-month
+			      cm
+			      (brmember-flags mr)))
 		       cal))))))

 ;; Returns the first month of the calendar