aherman
/
gnucash
mirror of https://github.com/Gnucash/gnucash
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

with-output-to-file -> call-with-output-file

Browse Source
pull/599/head
Christopher Lam 7 years ago
parent 977b1fcf9d
commit be4e452424
3 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File

6
gnucash/report/report-system/test/test-extras.scm
Unescape View File

@ -53,11 +53,11 @@
(if test-title
(gnc:html-document-set-title! document test-title))
(let ((render (gnc:html-document-render document)))
(with-output-to-file (format #f "/tmp/~a-~a.html"
(call-with-output-file (format #f "/tmp/~a-~a.html"
(string-map sanitize-char prefix)
(string-map sanitize-char test-title))
(lambda ()
(display render)))
(lambda (p)
(display render p)))
render)))
(define (strip-string s1 s2)

6
gnucash/report/report-system/test/test-report-html.scm
Unescape View File

@ -892,9 +892,9 @@ HTML Document Title</title></head><body></body>\n\
(gnc:html-document-set-style-sheet! doc (gnc:html-style-sheet-find "Default"))
(gnc:html-document-add-object! doc table)
(let ((render (gnc:html-document-render doc)))
(with-output-to-file (format #f "/tmp/html-acct-table-~a.html" prefix)
(lambda ()
(display render)))
(call-with-output-file (format #f "/tmp/html-acct-table-~a.html" prefix)
(lambda (p)
(display render p)))
(xml->sxml render
#:trim-whitespace? #t
#:entities '((nbsp . "\xa0")

6
gnucash/report/report-system/trep-engine.scm
Unescape View File

@ -2204,9 +2204,9 @@ be excluded from periodic reporting.")
(if (list? csvlist)
(catch #t
(lambda ()
(with-output-to-file filename
(lambda ()
(display (lists->csv (append infolist csvlist))))))
(call-with-output-file filename
(lambda (p)
(display (lists->csv (append infolist csvlist)) p))))
(lambda (key . args)
;; Translators: ~a error type, ~a filename, ~s error details
(let ((fmt (N_ "error ~a during csv output to ~a: ~s")))

Write Preview
Loading…
Cancel
Save