From cef574affeb753e3faab2604a0cbd79a58bddb21 Mon Sep 17 00:00:00 2001 From: Christopher Lam Date: Fri, 19 Oct 2018 18:35:30 +0800 Subject: [PATCH] [category-barchart] remove old expensive function --- .../standard-reports/category-barchart.scm | 21 ------------------- 1 file changed, 21 deletions(-) diff --git a/gnucash/report/standard-reports/category-barchart.scm b/gnucash/report/standard-reports/category-barchart.scm index 283b0c5681..10181aec96 100644 --- a/gnucash/report/standard-reports/category-barchart.scm +++ b/gnucash/report/standard-reports/category-barchart.scm @@ -384,27 +384,6 @@ developing over time")) #:ignore-closing? (gnc:account-is-inc-exp? acc))))) accounts)) - ;; Calculates the net balance (profit or loss) of an account in - ;; the given time interval. date-list-entry is a pair containing - ;; the start- and end-date of that interval. If subacct?==#t, - ;; the subaccount's balances are included as well. Returns a - ;; double, exchanged into the report-currency by the above - ;; conversion function, and possibly with reversed sign. - (define (get-balance account date-list-entry subacct?) - ((if (reverse-balance? account) - gnc:monetary-neg identity) - (if do-intervals? - (collector->monetary - (gnc:account-get-comm-balance-interval - account - (first date-list-entry) - (second date-list-entry) subacct?) - (second date-list-entry)) - (collector->monetary - (gnc:account-get-comm-balance-at-date - account date-list-entry subacct?) - date-list-entry)))) - ;; Creates the to be used in the function ;; below. (define (account->balance-list account subacct?)