From 07f44ad7c544ce12268fdcce27f2d4b3fcab184f Mon Sep 17 00:00:00 2001 From: Christopher Lam Date: Sat, 23 Mar 2019 12:43:29 +0800 Subject: [PATCH] [customer-summary] convert loop to srfi-1 --- .../business-reports/customer-summary.scm | 22 ++++--------------- 1 file changed, 4 insertions(+), 18 deletions(-) diff --git a/gnucash/report/business-reports/customer-summary.scm b/gnucash/report/business-reports/customer-summary.scm index b72765b133..05c4c9b423 100644 --- a/gnucash/report/business-reports/customer-summary.scm +++ b/gnucash/report/business-reports/customer-summary.scm @@ -305,26 +305,12 @@ (* 100 (gnc-numeric-div profit sales 1000 GNC-HOW-RND-ROUND)))) (define (query-split-value sub-query toplevel-query) - (let ((splits (qof-query-run-subquery sub-query toplevel-query)) - (total (gnc-numeric-zero)) - ) - (for-each - (lambda (split) - (set! total (gnc-numeric-add-fixed total (xaccSplitGetValue split))) - ) - splits) ;; END for-each splits - total)) + (let ((splits (qof-query-run-subquery sub-query toplevel-query))) + (apply + (map xaccSplitGetValue splits)))) (define (single-query-split-value query) - (let ((splits (qof-query-run query)) - (total (gnc-numeric-zero)) - ) - (for-each - (lambda (split) - (set! total (gnc-numeric-add-fixed total (xaccSplitGetValue split))) - ) - splits) ;; END for-each splits - total)) + (let ((splits (qof-query-run query))) + (apply + (map xaccSplitGetValue splits)))) ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;