gnucash maint: [trial-balance] fix qof-query-destroy

[Christopher Lam]

Updated	 via  https://github.com/Gnucash/gnucash/commit/355d28e7 (commit)
	from  https://github.com/Gnucash/gnucash/commit/26a9ccc1 (commit)



commit 355d28e7214793615ca96dd8d1a3c4f47ccdd2fc
Author: Christopher Lam <christopher.lck at gmail.com>
Date:   Fri Sep 13 20:09:08 2019 +0800

    [trial-balance] fix qof-query-destroy
    
    qof-query-destroy inv-query never previously triggered. fix. also map
    output is discarded, it's more readable to use for-each.

diff --git a/gnucash/report/standard-reports/trial-balance.scm b/gnucash/report/standard-reports/trial-balance.scm
index 464e62601..fd4088e99 100644
--- a/gnucash/report/standard-reports/trial-balance.scm
+++ b/gnucash/report/standard-reports/trial-balance.scm
@@ -356,10 +356,10 @@
           (let ((inv-query (qof-query-invert str-query)))
             (qof-query-merge-in-place
              sign-query inv-query QOF-QUERY-AND)
-            qof-query-destroy inv-query)))
+            (qof-query-destroy inv-query))))
     (qof-query-destroy str-query)
 
-    (map
+    (for-each
      (lambda (split)
 	   (let* ((shares (xaccSplitGetAmount split))
 		  (acct-comm (xaccAccountGetCommodity



Summary of changes:
 gnucash/report/standard-reports/trial-balance.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)