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/members-payments.scm
View file

@ -268,8 +268,8 @@
(bank-transaction-message bt)
(if (eq? curr 'CZK)
amt
(parameterize ((*current-month* (cal-ensure-month day)))
(* amt (lookup-eur-rate))))
(with-current-day day
(* amt (lookup-eur-rate))))
"Payment")))
bts))