[commodity-utilities] shorten workload by deduping commodities

This commit is contained in:
Christopher Lam 2023-01-23 13:27:57 +08:00
parent ae6efa39ca
commit c16bde1aea

View File

@ -229,6 +229,12 @@
(gnc-account-get-descendants-sorted (gnc-get-current-root-account)))
(all-splits (get-all-splits currency-accounts end-date))
(interesting-splits (sort (filter interesting-split? all-splits) date<?))
(commodity-list (sort-and-delete-duplicates
commodity-list
(lambda (a b)
(gnc:string-locale<? (gnc-commodity-get-unique-name a)
(gnc-commodity-get-unique-name b)))
gnc-commodity-equal))
(work-to-do (length commodity-list)))
(map
(lambda (c work-done)