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:
parent
83451fea98
commit
76e55071b0
|
@ -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