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

[register] simplify named let

Browse Source 
many args were not modified.
This commit is contained in:
Christopher Lam 2019-02-22 22:45:54 +08:00
parent a23b945a11
commit bae74fed0a
1 changed files with 11 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
gnucash/report/standard-reports/register.scm
View File

@ -586,6 +586,13 @@
(multi-rows? (reg-report-journal?)) (multi-rows? (reg-report-journal?))
(ledger-type? (reg-report-ledger-type?)) (ledger-type? (reg-report-ledger-type?))
(double? (reg-report-double?)) (double? (reg-report-double?))
(leader (splits-leader splits))
(total-collector (gnc:make-commodity-collector))
(debit-collector (gnc:make-commodity-collector))
(credit-collector (gnc:make-commodity-collector))
(total-value (gnc:make-commodity-collector))
(debit-value (gnc:make-commodity-collector))
(credit-value (gnc:make-commodity-collector))
(action-for-num? (qof-book-use-split-action-for-num-field (action-for-num? (qof-book-use-split-action-for-num-field
(gnc-get-current-book)))) (gnc-get-current-book))))
@ -595,22 +602,9 @@
debit-string credit-string amount-string debit-string credit-string amount-string
multi-rows? action-for-num? ledger-type?)) multi-rows? action-for-num? ledger-type?))
(let loop ((leader (splits-leader splits)) (let loop ((splits splits)
(splits splits) (odd-row? #t))
(table table)
(used-columns used-columns)
(width width)
(multi-rows? multi-rows?)
(action-for-num? action-for-num?)
(ledger-type? ledger-type?)
(double? double?)
(odd-row? #t)
(total-collector (gnc:make-commodity-collector))
(debit-collector (gnc:make-commodity-collector))
(credit-collector (gnc:make-commodity-collector))
(total-value (gnc:make-commodity-collector))
(debit-value (gnc:make-commodity-collector))
(credit-value (gnc:make-commodity-collector)))
(if (null? splits) (if (null? splits)
;; ---------------------------------- ;; ----------------------------------
;; exit condition reached ;; exit condition reached
@ -643,7 +637,6 @@
(if odd-row? "normal-row" (if odd-row? "normal-row"
"alternate-row"))) "alternate-row")))
(rest (cdr splits)) (rest (cdr splits))
(next (and (pair? rest) (car rest)))
(valid-split? (not (null? (xaccSplitGetAccount current))))) (valid-split? (not (null? (xaccSplitGetAccount current)))))
;; ---------------------------------------------- ;; ----------------------------------------------
;; update totals, but don't add them to the table ;; update totals, but don't add them to the table
@ -682,22 +675,7 @@
"alternate-row" action-for-num? "alternate-row" action-for-num?
ledger-type? total-collector)) ledger-type? total-collector))
(loop leader (loop rest (not odd-row?)))))
rest
table
used-columns
width
multi-rows?
action-for-num?
ledger-type?
double?
(not odd-row?)
total-collector
debit-collector
credit-collector
total-value
debit-value
credit-value))))
table)) table))