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

[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 ...) ;; usage: (gnc:monetaries-add monetary1 monetary2 ...)
;; output: a monetary object ;; output: a monetary object
(define (gnc:monetary+ . monetaries) (define (gnc:monetary+ . monetaries)
(let* ((coll (apply gnc:monetaries-add monetaries)) (let ((coll (apply gnc:monetaries-add monetaries)))
(list-of-monetaries (coll 'format gnc:make-gnc-monetary #f))) (match (coll 'format gnc:make-gnc-monetary #f)
(if (null? (cdr list-of-monetaries)) ((mon) mon)
(car list-of-monetaries) (_ (throw "gnc:monetary+ expects 1 currency " (gnc:strify monetaries))))))
(throw "gnc:monetary+ expects 1 currency " (gnc:strify monetaries)))))
;; get the account balance at the specified date. if include-children? ;; get the account balance at the specified date. if include-children?
;; is true, the balances of all children (not just direct children) ;; is true, the balances of all children (not just direct children)