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

5
src/members-payments.scm
View file

@ -273,8 +273,9 @@
(define (brmember-balance-history mr)
(let* ((mcal (calendar->balance-history (member-calendar mr)))
(pmts (transactions->balance-history (brmember-payments mr)))
(all (append mcal pmts))
(all-sorted (sort all (lambda (a b)
(all-unsorted (append mcal pmts))
(all (sort all-unsorted
(lambda (a b)
(cal-day<? (car a) (car b))))))
(print all)
'()))