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

[net-charts] use srfi-1 map

Browse Source 
This function was created manually and could be simplified by using
srfi-1 map, similar to category-barchart.scm. Much more readable.
This commit is contained in:
Christopher Lam 2018-12-03 15:27:35 +08:00 committed by John Ralls
parent 6e8ac58d93
commit 5ce280d5ef
1 changed files with 4 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
gnucash/report/standard-reports/net-charts.scm
View File

@ -287,21 +287,10 @@
;; (list acc2 bal0 bal1 bal2 ...) ...)
;; whereby list of balances are gnc-monetary objects
;; output: (list <mon-coll0> <mon-coll1> <mon-coll2>)
(define list-of-collectors
(let loop ((n (length dates)) (result '()))
(if (zero? n) result
(loop (1- n) (cons (gnc:make-commodity-collector) result)))))
(let loop ((lst lst))
(when (pair? lst)
(let innerloop ((list-of-collectors list-of-collectors)
(list-of-balances (cdar lst)))
(when (pair? list-of-balances)
((car list-of-collectors) 'add
(gnc:gnc-monetary-commodity (car list-of-balances))
(gnc:gnc-monetary-amount (car list-of-balances)))
(innerloop (cdr list-of-collectors) (cdr list-of-balances))))
(loop (cdr lst))))
list-of-collectors)
(define (call thunk) (thunk))
(if (null? lst)
(map call (make-list (length dates) gnc:make-commodity-collector))
(apply map gnc:monetaries-add (map cdr lst))))
(let loop ((dates dates)
(acct-balances (acc-balances->list-of-balances filtered-account-balances))