[register] change other-rows-driver to named-let

This commit is contained in:
Christopher Lam 2019-02-22 17:38:55 +08:00
parent beaf945907
commit 27c0ab490a

View File

@ -562,20 +562,14 @@
(define (add-other-split-rows split table used-columns row-style (define (add-other-split-rows split table used-columns row-style
action-for-num? ledger-type? total-collector) action-for-num? ledger-type? total-collector)
(define (other-rows-driver split parent table used-columns i) (let loop ((splits (xaccTransGetSplitList (xaccSplitGetParent split))))
(let ((current (xaccTransGetSplit parent i))) (when (pair? splits)
(if (not (null? current)) (add-split-row table (car splits) used-columns row-style #f #t
(begin
(add-split-row table current used-columns row-style #f #t
action-for-num? ledger-type? #f action-for-num? ledger-type? #f
(opt-val "Display" "Memo") (opt-val "Display" "Memo")
(opt-val "Display" "Description") (opt-val "Display" "Description")
total-collector) total-collector)
(other-rows-driver split parent table (loop (cdr splits)))))
used-columns (+ i 1))))))
(other-rows-driver split (xaccSplitGetParent split)
table used-columns 0))
(define (splits-leader splits) (define (splits-leader splits)
(let ((accounts (map xaccSplitGetAccount splits))) (let ((accounts (map xaccSplitGetAccount splits)))