From d928ed4ada21396bb2baccd3b396d3eaafbd30c5 Mon Sep 17 00:00:00 2001 From: Christopher Lam Date: Sat, 24 Dec 2022 21:51:53 +0800 Subject: [PATCH] [investment-lots] use higher order functions, instead of lambdas --- gnucash/report/reports/standard/investment-lots.scm | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) diff --git a/gnucash/report/reports/standard/investment-lots.scm b/gnucash/report/reports/standard/investment-lots.scm index 4a23b3c1d9..7f24c0308f 100644 --- a/gnucash/report/reports/standard/investment-lots.scm +++ b/gnucash/report/reports/standard/investment-lots.scm @@ -1855,9 +1855,7 @@ (gnc:html-chart-add-data-series! chart (account->name account) - (map (lambda (value) - (gnc:gnc-monetary-amount (value->monetary value))) - gain-values) + (map (compose gnc:gnc-monetary-amount value->monetary) gain-values) (car colors)) (set! colors (cdr colors))))) @@ -2000,9 +1998,7 @@ (gnc:html-chart-set-stacking?! chart (eq? chart-type 'bar-stacked))))) - (for-each - (lambda (account) (add-account-report account)) - accounts) + (for-each add-account-report accounts) (add-padding-rows 3) (gnc:html-table-append-ruler! table column-count)