[trial-balance] use gnc:commodity-collector-get-negated

This commit is contained in:
Christopher Lam 2019-09-19 21:07:01 +08:00
parent 0c9c9c2594
commit f88c54bb50

View File

@ -152,9 +152,7 @@
(amt (and sum (gnc:gnc-monetary-amount sum))) (amt (and sum (gnc:gnc-monetary-amount sum)))
(neg? (and amt (negative? amt))) (neg? (and amt (negative? amt)))
(bal (if neg? (bal (if neg?
(let ((bal (gnc:make-commodity-collector))) (gnc:commodity-collector-get-negated signed-balance)
(bal 'minusmerge signed-balance #f)
bal)
signed-balance)) signed-balance))
(bal-sum (gnc:sum-collector-commodity (bal-sum (gnc:sum-collector-commodity
bal bal