From 4c55141d963452a2381a5bd5b3d4fe31bde2cd2c Mon Sep 17 00:00:00 2001 From: Christopher Lam Date: Tue, 8 May 2018 23:05:59 +0800 Subject: [PATCH] html-utilities.scm: simplify --- gnucash/report/report-system/html-utilities.scm | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/gnucash/report/report-system/html-utilities.scm b/gnucash/report/report-system/html-utilities.scm index a701ff2bde..f67a9a5523 100644 --- a/gnucash/report/report-system/html-utilities.scm +++ b/gnucash/report/report-system/html-utilities.scm @@ -27,9 +27,7 @@ ;; returns a list with n #f (empty cell) values (define (gnc:html-make-empty-cell) #f) (define (gnc:html-make-empty-cells n) - (if (> n 0) - (cons #f (gnc:html-make-empty-cells (- n 1))) - (list))) + (make-list n #f)) (define (gnc:register-guid type guid) (gnc-build-url URL-TYPE-REGISTER (string-append type guid) "")) @@ -816,8 +814,8 @@ (gnc:html-markup-p (gnc:html-markup-anchor (gnc-build-url URL-TYPE-OPTIONS - (string-append "report-id=" (format #f "~a" report-id)) - "") + (format #f "report-id=~a" report-id) + "") (_ "Edit report options"))))) (define* (gnc:html-render-options-changed options #:optional plaintext?)