Quick hack for unified balance formatting for active debtors.

This commit is contained in:
Dominik Pantůček 2023-06-15 23:16:13 +02:00
parent 4db9704226
commit db5014a334

View file

@ -159,7 +159,7 @@
(if (brmember-student? mr) (if (brmember-student? mr)
'student 'student
'normal) 'normal)
(format "\t~A" (member-total-balance mr)) (format "\t~A" (+ 0.0 (member-total-balance mr)))
(let* ((payments (brmember-payments mr)) (let* ((payments (brmember-payments mr))
(tr (if (null? payments) (tr (if (null? payments)
#f #f