[report-utilities] gnc:strify can render vectors too

This commit is contained in:
Christopher Lam 2019-11-24 21:01:04 +08:00
parent aa451bc89d
commit 9adf8db1a2

View File

@ -1260,6 +1260,10 @@ flawed. see report-utilities.scm. please update reports.")
"(list "
(string-join (map gnc:strify d) " ")
")"))
(and (vector? d) (string-append
"(vector "
(string-join (map gnc:strify (vector->list d)) " ")
")"))
(and (pair? d) (format #f "(~a . ~a)"
(gnc:strify (car d))
(if (eq? (car d) 'absolute)