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

[report-utilities] compact code, use (ice-9 match)

Browse Source
This commit is contained in:
Christopher Lam 2020-02-05 15:35:01 +08:00
parent dafff68914
commit ad094f4345
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
gnucash/report/report-system/report-utilities.scm
View File

@ -423,11 +423,10 @@ construct gnc:make-gnc-monetary and use gnc:monetary->string instead.")
;; usage: (gnc:monetaries-add monetary1 monetary2 ...)
;; output: a monetary object
(define (gnc:monetary+ . monetaries)
(let* ((coll (apply gnc:monetaries-add monetaries))
(list-of-monetaries (coll 'format gnc:make-gnc-monetary #f)))
(if (null? (cdr list-of-monetaries))
(car list-of-monetaries)
(throw "gnc:monetary+ expects 1 currency " (gnc:strify monetaries)))))
(let ((coll (apply gnc:monetaries-add monetaries)))
(match (coll 'format gnc:make-gnc-monetary #f)
((mon) mon)
(_ (throw "gnc:monetary+ expects 1 currency " (gnc:strify monetaries))))))
;; get the account balance at the specified date. if include-children?
;; is true, the balances of all children (not just direct children)