From e4bb516b944f944613e4cfcead96fd480a9b9a79 Mon Sep 17 00:00:00 2001 From: Christopher Lam Date: Sat, 12 Oct 2019 13:11:11 +0800 Subject: [PATCH] [html-text] compact gnc:html-text-set-style! --- gnucash/report/report-system/html-text.scm | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) diff --git a/gnucash/report/report-system/html-text.scm b/gnucash/report/report-system/html-text.scm index 3b308b505d..fd1f29ade6 100644 --- a/gnucash/report/report-system/html-text.scm +++ b/gnucash/report/report-system/html-text.scm @@ -60,13 +60,9 @@ (record-modifier 'style)) (define (gnc:html-text-set-style! text tag . rest) - (let ((newstyle #f)) - (if (and (= (length rest) 2) - (procedure? (car rest))) - (set! newstyle - (apply gnc:make-html-data-style-info rest)) - (set! newstyle - (apply gnc:make-html-markup-style-info rest))) + (let ((newstyle (if (and (= (length rest) 2) (procedure? (car rest))) + (apply gnc:make-html-data-style-info rest) + (apply gnc:make-html-markup-style-info rest)))) (gnc:html-style-table-set! (gnc:html-text-style text) tag newstyle))) (define (gnc:html-text-append! text . body)