From 9717b74876c3f9f85b25f409e67951d77c6798c6 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 19 Sep 2011 15:18:14 -0500 Subject: [PATCH] use new copy-file argument that Matthew provided; this is a better fix than commit f9e1c41cb0a7f84766207d7a092443dbb5a17e1c was for the same problem original commit: 76e55071b056d87eb60950f0b08326e09668fa5f --- collects/scribble/private/indirect-renderer.rkt | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) diff --git a/collects/scribble/private/indirect-renderer.rkt b/collects/scribble/private/indirect-renderer.rkt index 37895083..dc6f9511 100644 --- a/collects/scribble/private/indirect-renderer.rkt +++ b/collects/scribble/private/indirect-renderer.rkt @@ -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)))