Use proper format syntax

This commit is contained in:
Christopher Lam 2020-12-04 18:36:22 +08:00
parent c094c07616
commit a2ef6ed6a5
2 changed files with 2 additions and 2 deletions

View File

@ -133,7 +133,7 @@
(apply string-append
(gnc:html-document-tree-collapse rendered-elt)))
(#t
(format "hold on there podner. form='~s'\n" rendered-elt)
(format #f "hold on there podner. form=~s\n" rendered-elt)
""))))
entities))))

View File

@ -68,7 +68,7 @@
(gnc-print-time64 (gnc-mktime datevec) "%Y"))
(define (gnc:date-get-quarter-string datevec)
(format #f "Q~d" (gnc:date-get-quarter datevec)))
(format #f "Q~a" (gnc:date-get-quarter datevec)))
(define (gnc:date-get-quarter-year-string datevec)
(string-append