IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

[investment-lots] use higher order functions, instead of lambdas

Browse Source
This commit is contained in:
Christopher Lam 2022-12-24 21:51:53 +08:00
parent 6907d772d4
commit d928ed4ada
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gnucash/report/reports/standard/investment-lots.scm
View File

@ -1855,9 +1855,7 @@
(gnc:html-chart-add-data-series! (gnc:html-chart-add-data-series!
chart chart
(account->name account) (account->name account)
(map (lambda (value) (map (compose gnc:gnc-monetary-amount value->monetary) gain-values)
(gnc:gnc-monetary-amount (value->monetary value)))
gain-values)
(car colors)) (car colors))
(set! colors (cdr colors))))) (set! colors (cdr colors)))))
@ -2000,9 +1998,7 @@
(gnc:html-chart-set-stacking?! chart (gnc:html-chart-set-stacking?! chart
(eq? chart-type 'bar-stacked))))) (eq? chart-type 'bar-stacked)))))
(for-each (for-each add-account-report accounts)
(lambda (account) (add-account-report account))
accounts)
(add-padding-rows 3) (add-padding-rows 3)
(gnc:html-table-append-ruler! table column-count) (gnc:html-table-append-ruler! table column-count)