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

Correct sorting.

Browse source
This commit is contained in:
Dominik Pantůček 2023-06-18 19:25:43 +02:00
parent 8533306dfd
commit b018da2c61
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/members-payments.scm
View file

@ -273,9 +273,10 @@
(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)))
(all (append mcal pmts)) (all-unsorted (append mcal pmts))
(all-sorted (sort all (lambda (a b) (all (sort all-unsorted
(cal-day<? (car a) (car b)))))) (lambda (a b)
(cal-day<? (car a) (car b))))))
(print all) (print all)
'())) '()))