From b9382d2cf22ae1549f144bd64b1fe9b7bfcaa3f5 Mon Sep 17 00:00:00 2001 From: Christopher Lam Date: Sat, 6 Jul 2019 18:20:18 +0800 Subject: [PATCH] [commodity-utilities] move gnc:debug to less CPU critical code pricealist is a long list generated once, yet is dumped via gnc:debug for every call to gnc:exchange-by-pricealist-nearest. This change moves gnc:debug to the initial pricealist generation, ensuring that gnc:exchange-by-pricealist-nearest is much faster. --- gnucash/report/report-system/commodity-utilities.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/gnucash/report/report-system/commodity-utilities.scm b/gnucash/report/report-system/commodity-utilities.scm index c64ca0efaf..29d6aac584 100644 --- a/gnucash/report/report-system/commodity-utilities.scm +++ b/gnucash/report/report-system/commodity-utilities.scm @@ -803,7 +803,6 @@ construct with gnc:make-gnc-monetary and gnc:monetary->string instead.") ;;Used in weighted-average gnc:case-exchange-time-fn only. (gnc:debug "foreign " (gnc:monetary->string foreign)) (gnc:debug "domestic " (gnc-commodity-get-printname domestic)) - (gnc:debug "pricealist " pricealist) (and (record? foreign) (gnc:gnc-monetary? foreign) date @@ -873,6 +872,7 @@ construct with gnc:make-gnc-monetary and gnc:monetary->string instead.") (gnc:get-commoditylist-totalavg-prices commodity-list report-currency to-date-tp start-percent delta-percent))) + (gnc:debug "weighted-average pricealist " pricealist) (lambda (foreign domestic date) (gnc:exchange-by-pricealist-nearest pricealist foreign domestic date))))