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

[budget] convert iterative functions to use srfi-1

Browse Source
This commit is contained in:
Christopher Lam
2019-03-02 21:12:49 +08:00
parent 86cbebd0ac
commit 66657f466e
1 changed files with 9 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
gnucash/report/standard-reports/budget.scm
View File

@@ -324,13 +324,11 @@
;; Return value:
;; Budget sum
(define (gnc:get-account-periodlist-budget-value budget acct periodlist)
(cond
((= (length periodlist) 1)
(gnc:get-account-period-rolledup-budget-value budget acct (car periodlist)))
(else
(+
(gnc:get-account-period-rolledup-budget-value budget acct (car periodlist))
(gnc:get-account-periodlist-budget-value budget acct (cdr periodlist))))))
(apply +
(map
(lambda (period)
(gnc:get-account-period-rolledup-budget-value budget acct period))
periodlist)))
;; Calculate the value to use for the actual of an account for a
;; specific set of periods. This is the sum of the actuals for
@@ -344,13 +342,10 @@
;; Return value:
;; Budget sum
(define (gnc:get-account-periodlist-actual-value budget acct periodlist)
(cond
((= (length periodlist) 1)
(gnc-budget-get-account-period-actual-value budget acct (car periodlist)))
(else
(+
(gnc-budget-get-account-period-actual-value budget acct (car periodlist))
(gnc:get-account-periodlist-actual-value budget acct (cdr periodlist))))))
(apply + (map
(lambda (period)
(gnc-budget-get-account-period-actual-value budget acct period))
periodlist)))
;; Adds a line to tbe budget report.
;;