use (string-concatenate ...) instead of (apply string-append ...)

similarly to a48e656ee, string-concatenate is less vulnerable to stack
overflow. this was confirmed by wingo some time back.
This commit is contained in:
Christopher Lam 2022-05-02 09:10:21 +08:00
parent 7e4fcc7afb
commit 56fa5949f9

View File

@ -170,8 +170,8 @@
((string? rendered-elt)
rendered-elt)
((list? rendered-elt)
(apply string-append
(gnc:html-document-tree-collapse rendered-elt)))
(string-concatenate
(gnc:html-document-tree-collapse rendered-elt)))
(#t
(format #f "hold on there podner. form=~s\n" rendered-elt)
""))))