gnucash maint: [html-utilities] bugfix deprecated function

[Christopher Lam]

Updated	 via  https://github.com/Gnucash/gnucash/commit/410cbe39 (commit)
	from  https://github.com/Gnucash/gnucash/commit/9e23e41f (commit)



commit 410cbe39720e974315434515beaa815116bddbca
Author: Christopher Lam <christopher.lck at gmail.com>
Date:   Fri Dec 4 23:33:59 2020 +0800

    [html-utilities] bugfix deprecated function
    
    comm-list was inaccessible for the entries definition

diff --git a/gnucash/report/html-utilities.scm b/gnucash/report/html-utilities.scm
index fc8b80ead..ca6a2941d 100644
--- a/gnucash/report/html-utilities.scm
+++ b/gnucash/report/html-utilities.scm
@@ -209,10 +209,10 @@
 (define (gnc:html-make-exchangerates common-commodity exchange-fn accounts)
   (issue-deprecation-warning
    "gnc:html-make-exchangerates is deprecated. use gnc:html-make-rates-table instead.")
-  (let ((comm-list (gnc:accounts-get-commodities accounts common-commodity))
-        (entries (length comm-list))
-        (markup (lambda (c) (gnc:make-html-table-cell/markup "number-cell" c)))
-        (table (gnc:make-html-table)))
+  (let* ((comm-list (gnc:accounts-get-commodities accounts common-commodity))
+         (entries (length comm-list))
+         (markup (lambda (c) (gnc:make-html-table-cell/markup "number-cell" c)))
+         (table (gnc:make-html-table)))
     (unless (= 0 entries)
       (for-each
        (lambda (commodity)



Summary of changes:
 gnucash/report/html-utilities.scm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)