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

Properly sort members.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-03 20:24:39 +02:00
parent 596363c986
commit 75cc2c6d0e
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/members-print.scm
View file

@ -335,7 +335,7 @@
;; Prints summary table of all fees and credits for all members ;; Prints summary table of all fees and credits for all members
(define (print-members-fees-table MB) (define (print-members-fees-table MB)
(let ((balances (map member-balance (sort MB member<?))) (let ((balances (map member-balance MB))
(members ;; Pass 1 (members ;; Pass 1
(map (map
(lambda (mr) (lambda (mr)
@ -357,7 +357,7 @@
payment payment
total total
))) )))
MB))) (sort MB member<?))))
(print (print
(table->string (table->string
(cons (cons