[html-table] unused gnc:html-table-merge

This function is not used through code.
This commit is contained in:
Christopher Lam 2018-06-02 16:25:41 +08:00
parent 03b57e5153
commit 39e976045b
2 changed files with 0 additions and 13 deletions

View File

@ -613,18 +613,6 @@
;; Feel free to contribute! :-)
;;
;; This function was moved here from balance-sheet.scm.
;; This function "stacks" the two tables vertically.
(define (gnc:html-table-merge t1 t2)
(begin
(gnc:html-table-set-data! t1
(append
(gnc:html-table-data t2)
(gnc:html-table-data t1)))
(gnc:html-table-set-num-rows-internal!
t1 (+ (gnc:html-table-num-rows t1)
(gnc:html-table-num-rows t2)))))
(define (gnc:html-table-render table doc)
(let* ((retval '())
(push (lambda (l) (set! retval (cons l retval)))))

View File

@ -620,7 +620,6 @@
(export gnc:html-table-set-cell/tag!)
(export gnc:html-table-append-column!)
(export gnc:html-table-prepend-column!)
(export gnc:html-table-merge)
(export gnc:html-table-render)
;; html-text.scm