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

[cash-flow] replace account-in-alist with srfi-1 equivalent

Browse Source
This commit is contained in:
Christopher Lam 2019-01-28 17:22:23 +08:00
parent 1a69bf1b2f
commit d97d4930ba
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/standard-reports/cash-flow.scm
View File

@ -281,7 +281,7 @@
(set! row-num (+ 1 row-num))
(set! work-done (+ 1 work-done))
(gnc:report-percent-done (+ 90 (* 5 (/ work-done work-to-do))))
(let* ((pair (account-in-alist account money-in-alist))
(let* ((pair (assoc account money-in-alist))
(acct (car pair)))
(gnc:html-table-append-row/markup!
table
@ -326,7 +326,7 @@
(set! row-num (+ 1 row-num))
(set! work-done (+ 1 work-done))
(gnc:report-percent-done (+ 95 (* 5 (/ work-done work-to-do))))
(let* ((pair (account-in-alist account money-out-alist))
(let* ((pair (assoc account money-out-alist))
(acct (car pair)))
(gnc:html-table-append-row/markup!
table