From 6fc1aa48a7cfaaf0636b6e6c25572b3c3ed25991 Mon Sep 17 00:00:00 2001 From: Stevie Strickland Date: Tue, 26 Feb 2008 23:14:50 +0000 Subject: [PATCH] with-output-to-file require the #:exists keyword now to specify this behavior. svn: r8809 --- collects/preprocessor/pp-run.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/preprocessor/pp-run.ss b/collects/preprocessor/pp-run.ss index 706fa71f6a..89aede4850 100644 --- a/collects/preprocessor/pp-run.ss +++ b/collects/preprocessor/pp-run.ss @@ -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)))