fix --xref-out flag

svn: r15437
2009-07-12 13:37:01 +00:00 · 2009-07-12 13:37:01 +00:00 · 48226b88be
commit 48226b88be
parent 32e1a2f7bf
1 changed files with 2 additions and 2 deletions
--- a/collects/scribble/run.ss
+++ b/collects/scribble/run.ss
@ -125,7 +125,7 @@
        (when (current-info-output-file)
          (let ([s (send renderer serialize-info r-info)])
            (with-output-to-file (current-info-output-file)
-              (lambda () (write s))
-              'truncate/replace)))))))
+              #:exists 'truncate/replace
+              (lambda () (write s)))))))))

 (run)