use new copy-file argument that Matthew provided; this is a better fix than

commit f9e1c41cb0a7f84766207d7a092443dbb5a17e1c was for the same problem

original commit: 76e55071b056d87eb60950f0b08326e09668fa5f
This commit is contained in:
Robby Findler 2011-09-19 15:18:14 -05:00
parent f258c1ca85
commit 9717b74876

View File

@ -40,11 +40,8 @@
(convert (file-name-from-path tmp)))
(when (super report-output?) ; use the original
(printf " [Output to ~a]\n" dst))
(call-with-output-file dst
(λ (out-port)
(call-with-input-file (build-path tmp-dir (file-name-from-path dst))
(λ (in-port)
(copy-port in-port out-port))))
#:exists 'truncate))
(copy-file (build-path tmp-dir (file-name-from-path dst))
dst
#t))
(cleanup)))
(super-new)))