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 (apply string-append
(gnc:html-document-tree-collapse rendered-elt))) (gnc:html-document-tree-collapse rendered-elt)))
(#t (#t
(format "hold on there podner. form='~s'\n" rendered-elt) (format #f "hold on there podner. form=~s\n" rendered-elt)
"")))) ""))))
entities)))) entities))))

View File

@ -68,7 +68,7 @@
(gnc-print-time64 (gnc-mktime datevec) "%Y")) (gnc-print-time64 (gnc-mktime datevec) "%Y"))
(define (gnc:date-get-quarter-string datevec) (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) (define (gnc:date-get-quarter-year-string datevec)
(string-append (string-append