[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)))
(neg? (and amt (negative? amt)))
(bal (if neg?
(let ((bal (gnc:make-commodity-collector)))
(bal 'minusmerge signed-balance #f)
bal)
(gnc:commodity-collector-get-negated signed-balance)
signed-balance))
(bal-sum (gnc:sum-collector-commodity
bal