gnucash maint: Fix guile-2.2 syntax error

[Christopher Lam]

Updated	 via  https://github.com/Gnucash/gnucash/commit/8a0f9c55 (commit)
	from  https://github.com/Gnucash/gnucash/commit/0b0e96c5 (commit)



commit 8a0f9c55f4b43f650bb4d5937c7907506c6020e2
Author: Christopher Lam <christopher.lck at gmail.com>
Date:   Thu Jan 14 23:19:12 2021 +0800

    Fix guile-2.2 syntax error
    
    6605a6eb6 had syntax error in guile-2.2; guile-3.0 is more lenient:
    
    definition in expression context, where definitions are not allowed

diff --git a/gnucash/report/reports/standard/category-barchart.scm b/gnucash/report/reports/standard/category-barchart.scm
index ac4c80019..ddce5ef9d 100644
--- a/gnucash/report/reports/standard/category-barchart.scm
+++ b/gnucash/report/reports/standard/category-barchart.scm
@@ -428,8 +428,6 @@ developing over time"))
                 sum)
               (length (filter show-acct? accts))))
 
-        (set! work-to-do (count-accounts 1 topl-accounts))
-
         ;; Calculates all account's balances. Returns a list of pairs:
         ;; (<account> <balance-list>), like '((Earnings (10.0 11.2))
         ;; (Gifts (12.3 14.5))), where each element of <balance-list>
@@ -494,6 +492,8 @@ developing over time"))
                 (> (gnc:gnc-monetary-amount (apply gnc:monetary+ (cadr a)))
                    (gnc:gnc-monetary-amount (apply gnc:monetary+ (cadr b)))))))))
 
+        (set! work-to-do (count-accounts 1 topl-accounts))
+
         (cond
          ((or (null? all-data) (all-zeros (map cadr all-data)))
           (gnc:html-document-add-object!



Summary of changes:
 gnucash/report/reports/standard/category-barchart.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)