IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

[html-table] compact html-table-append-row!

Browse Source
This commit is contained in:
Christopher Lam 2018-06-02 16:46:05 +08:00
parent 5532de0481
commit 0dc9a11501
1 changed files with 6 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
gnucash/report/report-system/html-table.scm
View File

@ -339,16 +339,12 @@
(define (gnc:html-table-append-row! table newrow)
(let* ((dd (gnc:html-table-data table))
(current-num-rows (gnc:html-table-num-rows table))
(new-num-rows (+ current-num-rows 1)))
(if (list? newrow)
(set! dd (cons newrow dd))
(set! dd (cons (list newrow) dd)))
(gnc:html-table-set-num-rows-internal!
table
new-num-rows)
(gnc:html-table-set-data! table dd)
(let* ((current-num-rows (gnc:html-table-num-rows table))
(new-num-rows (1+ current-num-rows)))
(gnc:html-table-set-num-rows-internal! table new-num-rows)
(gnc:html-table-set-data! table
(cons (if (list? newrow) newrow (list newrow))
(gnc:html-table-data table)))
new-num-rows))
(define (gnc:html-table-remove-last-row! table)