From 604a2d0864dbdd2b82fa8b66b959e2639042d7e9 Mon Sep 17 00:00:00 2001 From: Christopher Lam Date: Wed, 14 Feb 2018 17:15:26 +0800 Subject: [PATCH] Bugfix create-commodity-list 45f61a3 had couple bugs. - value/share was inadvertently swapped - no need to define comm-list in create-commodity-list to return it --- src/report/report-system/commodity-utilities.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/report/report-system/commodity-utilities.scm b/src/report/report-system/commodity-utilities.scm index ceca9c8f6a..ee0eaf1f18 100644 --- a/src/report/report-system/commodity-utilities.scm +++ b/src/report/report-system/commodity-utilities.scm @@ -543,7 +543,7 @@ (gnc:make-numeric-collector))))) ((caadr pair) 'add value-amount) ((cdadr pair) 'add share-amount) - (set comm-list (list outer-comm (list pair))))) + (list outer-comm (list pair)))) (define (create-foreign-list comm-list transaction-comm account-comm share-amount value-amount) @@ -616,7 +616,7 @@ (begin (set! comm-list (create-commodity-list account-comm transaction-comm - share-amount value-amount)) + value-amount share-amount)) (set! sumlist (cons comm-list sumlist))) ;;yes, check for second commodity