From 8a0f9c55f4b43f650bb4d5937c7907506c6020e2 Mon Sep 17 00:00:00 2001 From: Christopher Lam Date: Thu, 14 Jan 2021 23:19:12 +0800 Subject: [PATCH] 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 --- gnucash/report/reports/standard/category-barchart.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/gnucash/report/reports/standard/category-barchart.scm b/gnucash/report/reports/standard/category-barchart.scm index ac4c800197..ddce5ef9d8 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: ;; ( ), like '((Earnings (10.0 11.2)) ;; (Gifts (12.3 14.5))), where each element of @@ -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!