bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

commit 9717b74876c3f9f85b25f409e67951d77c6798c6
parent f258c1ca8559bcafaf0f4bb77cc45fb51a5c1c54
Author: Robby Findler <robby@racket-lang.org>
Date:   Mon, 19 Sep 2011 15:18:14 -0500

use new copy-file argument that Matthew provided; this is a better fix than
commit f9e1c41cb0a7f84766207d7a092443dbb5a17e1c was for the same problem

original commit: 76e55071b056d87eb60950f0b08326e09668fa5f

Diffstat:
M
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
@@ -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)))