suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix --xref-out flag

Browse Source 
svn: r15437
This commit is contained in:
Matthew Flatt 2009-07-12 13:37:01 +00:00
parent 32e1a2f7bf
commit 48226b88be
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/scribble/run.ss
View File

@ -125,7 +125,7 @@
(when (current-info-output-file) (when (current-info-output-file)
(let ([s (send renderer serialize-info r-info)]) (let ([s (send renderer serialize-info r-info)])
(with-output-to-file (current-info-output-file) (with-output-to-file (current-info-output-file)
(lambda () (write s)) #:exists 'truncate/replace
'truncate/replace))))))) (lambda () (write s)))))))))
(run) (run)