[html-table] gnc:html-table-set-row-style! uses cons*

This cons* call creates a pair-terminated list.
This commit is contained in:
Christopher Lam 2018-06-02 16:25:58 +08:00
parent 39e976045b
commit 7927597b3a

View File

@ -746,8 +746,5 @@
retval))
(define (gnc:html-table-set-last-row-style! table tag . rest)
(let ((arg-list
(cons table
(cons (1- (gnc:html-table-num-rows table))
(cons tag rest)))))
(apply gnc:html-table-set-row-style! arg-list)))
(apply gnc:html-table-set-row-style!
(cons* table (1- (gnc:html-table-num-rows table)) tag rest)))