IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

Fix guile-2.2 syntax error

Browse Source 
6605a6eb6 had syntax error in guile-2.2; guile-3.0 is more lenient:

definition in expression context, where definitions are not allowed
This commit is contained in:
Christopher Lam 2021-01-14 23:19:12 +08:00
parent 0b0e96c500
commit 8a0f9c55f4
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gnucash/report/reports/standard/category-barchart.scm
View File

@ -428,8 +428,6 @@ developing over time"))
sum) sum)
(length (filter show-acct? accts)))) (length (filter show-acct? accts))))
(set! work-to-do (count-accounts 1 topl-accounts))
;; Calculates all account's balances. Returns a list of pairs: ;; Calculates all account's balances. Returns a list of pairs:
;; (<account> <balance-list>), like '((Earnings (10.0 11.2)) ;; (<account> <balance-list>), like '((Earnings (10.0 11.2))
;; (Gifts (12.3 14.5))), where each element of <balance-list> ;; (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 a)))
(gnc:gnc-monetary-amount (apply gnc:monetary+ (cadr b))))))))) (gnc:gnc-monetary-amount (apply gnc:monetary+ (cadr b)))))))))
(set! work-to-do (count-accounts 1 topl-accounts))
(cond (cond
((or (null? all-data) (all-zeros (map cadr all-data))) ((or (null? all-data) (all-zeros (map cadr all-data)))
(gnc:html-document-add-object! (gnc:html-document-add-object!