From b018da2c6181fc409d6472c4ff445ad08e13011d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Sun, 18 Jun 2023 19:25:43 +0200
Subject: [PATCH] Correct sorting.

---
 src/members-payments.scm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/src/members-payments.scm b/src/members-payments.scm
index 73b2dbe..8191f68 100644
--- a/src/members-payments.scm
+++ b/src/members-payments.scm
@@ -273,9 +273,10 @@
  (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)
-				  (cal-day<? (car a) (car b))))))
+	  (all-unsorted (append mcal pmts))
+	  (all (sort all-unsorted
+		     (lambda (a b)
+		       (cal-day<? (car a) (car b))))))
      (print all)
      '()))