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

commit f9e1c41cb0 was for the same problem
This commit is contained in:
Robby Findler 2011-09-19 15:18:14 -05:00
parent 83451fea98
commit 76e55071b0

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)))