[report-utilities] gnc:account-get-balances-at-dates: use quicksort

stable-sort! is slower than quicksort.
This commit is contained in:
Christopher Lam 2019-09-21 13:49:34 +08:00
parent 7587c3b4e3
commit f72df3e1bc

View File

@ -470,7 +470,7 @@ flawed. see report-utilities.scm. please update reports.")
(define (amount->monetary bal)
(gnc:make-gnc-monetary (xaccAccountGetCommodity account) bal))
(let loop ((splits (xaccAccountGetSplitList account))
(dates-list (stable-sort! dates-list <))
(dates-list (sort dates-list <))
(currentbal 0)
(lastbal 0)
(balancelist '()))