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:
parent
f258c1ca85
commit
9717b74876
|
@ -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)))
|
||||
|
|
Loading…
Reference in New Issue
Block a user