[html-text] compact gnc:html-text-set-style!

7 years ago · e4bb516b94
parent c5f232755b
commit e4bb516b94
1 changed files with 3 additions and 7 deletions
--- a/gnucash/report/report-system/html-text.scm
+++ b/gnucash/report/report-system/html-text.scm
@ -60,13 +60,9 @@
  (record-modifier <html-text> '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)