Convert to CZK.

This commit is contained in:
Dominik Pantůček 2023-06-18 19:23:51 +02:00
parent 3fbb68543b
commit 8533306dfd

View file

@ -271,10 +271,12 @@
;; Returns a single credit/debit list of payments and fees calendar ;; Returns a single credit/debit list of payments and fees calendar
(define (brmember-balance-history mr) (define (brmember-balance-history mr)
(let ((mcal (calendar->balance-history (member-calendar mr))) (let* ((mcal (calendar->balance-history (member-calendar mr)))
(pmts (transactions->balance-history (brmember-payments mr)))) (pmts (transactions->balance-history (brmember-payments mr)))
(print mcal) (all (append mcal pmts))
(print pmts) (all-sorted (sort all (lambda (a b)
(cal-day<? (car a) (car b))))))
(print all)
'())) '()))
) )