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] use srfi-1

Browse Source
This commit is contained in:
Christopher Lam 2018-06-02 16:43:31 +08:00
parent 7927597b3a
commit 5532de0481
1 changed files with 1 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -326,14 +326,7 @@
(record-modifier <html-table> 'num-rows)) (record-modifier <html-table> 'num-rows))
(define (gnc:html-table-num-columns table) (define (gnc:html-table-num-columns table)
(let ((max 0)) (apply max (map length (gnc:html-table-data table))))
(for-each
(lambda (row)
(let ((l (length row)))
(if (> l max)
(set! max l))))
(gnc:html-table-data table))
max))
(define (gnc:html-table-append-row/markup! table markup newrow) (define (gnc:html-table-append-row/markup! table markup newrow)
(let ((rownum (gnc:html-table-append-row! table newrow))) (let ((rownum (gnc:html-table-append-row! table newrow)))