From 48226b88bebe48a2fbd38d47d14eca2cf5a122e9 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 12 Jul 2009 13:37:01 +0000
Subject: [PATCH] fix --xref-out flag

svn: r15437
---
 collects/scribble/run.ss | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/collects/scribble/run.ss b/collects/scribble/run.ss
index ef5266b561..fbe66bba03 100644
--- 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)