mirror of
https://github.com/Gnucash/gnucash.git
synced 2025-02-25 18:55:30 -06:00
[register] change other-rows-driver to named-let
This commit is contained in:
parent
beaf945907
commit
27c0ab490a
@ -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)))
|
||||||
|
Loading…
Reference in New Issue
Block a user