with-output-to-file require the #:exists keyword now to specify this

behavior.

svn: r8809
This commit is contained in:
Stevie Strickland 2008-02-26 23:14:50 +00:00
parent 332dced862
commit 6fc1aa48a7

View File

@ -49,7 +49,7 @@
(delete-file file)
(rename-file-or-directory temp file))))]
[output
(with-output-to-file output (lambda () (apply preprocess files)) 'replace)
(with-output-to-file output (lambda () (apply preprocess files)) #:exists 'replace)
(when run-cmd (do-run-subst output))]
[else (apply preprocess files)])
(exit exit-code)))