mirror of
https://github.com/Gnucash/gnucash.git
synced 2025-02-25 18:55:30 -06:00
Use proper format syntax
This commit is contained in:
parent
c094c07616
commit
a2ef6ed6a5
@ -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))))
|
||||||
|
|
||||||
|
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user