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

[new-aging] step 2 - reduce indentation level by 1

Browse Source 
merge two let* together
This commit is contained in:
Christopher Lam 2019-11-10 04:07:08 +08:00
parent b72052137b
commit 97798f9fd1
1 changed files with 37 additions and 42 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
gnucash/report/business-reports/new-aging.scm
View File

@ -325,17 +325,12 @@ exist but have no suitable transactions."))
(let* ((account (car accounts))
(splits-acc-others (list-split splits split-from-acct? account))
(acc-splits (car splits-acc-others))
(other-acc-splits (cdr splits-acc-others)))
(gnc:debug 'account account)
(let* ((split-owners (map split->owner acc-splits))
(other-acc-splits (cdr splits-acc-others))
(split-owners (map split->owner acc-splits))
(acc-owners (sort (sort-and-delete-duplicates
split-owners ownerGUID<? gnc-owner-equal?)
owner<?)))
(gnc:debug 'owners acc-owners)
;; loop into each APAR account split
(let lp ((acc-owners acc-owners)
(acc-splits acc-splits)
@ -368,7 +363,7 @@ exist but have no suitable transactions."))
(if (or show-zeros (not (every zero? aging)))
(cons (list owner aging aging-total)
owners-and-aging)
owners-and-aging))))))))))))))
owners-and-aging)))))))))))))
(gnc:report-finished)
document))