[html-table] use srfi-1

This commit is contained in:
Christopher Lam 2018-06-02 16:43:31 +08:00
parent 7927597b3a
commit 5532de0481

View File

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