Merge Chris Lam's 'maint-fix-45f61a3'.

This commit is contained in:
John Ralls 2018-02-15 10:30:42 -08:00
commit 1999d85343

View File

@ -543,7 +543,7 @@
(gnc:make-numeric-collector))))) (gnc:make-numeric-collector)))))
((caadr pair) 'add value-amount) ((caadr pair) 'add value-amount)
((cdadr pair) 'add share-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 (define (create-foreign-list comm-list transaction-comm account-comm
share-amount value-amount) share-amount value-amount)
@ -616,7 +616,7 @@
(begin (begin
(set! comm-list (create-commodity-list (set! comm-list (create-commodity-list
account-comm transaction-comm account-comm transaction-comm
share-amount value-amount)) value-amount share-amount))
(set! sumlist (cons comm-list sumlist))) (set! sumlist (cons comm-list sumlist)))
;;yes, check for second commodity ;;yes, check for second commodity