fix --xref-out flag

svn: r15437

original commit: 48226b88bebe48a2fbd38d47d14eca2cf5a122e9
This commit is contained in:
Matthew Flatt 2009-07-12 13:37:01 +00:00
parent f187897782
commit a0b4797b47

View File

@ -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)