From 29318f1be2e35eb7d92cfbb9d9b8c7dfa1445cd8 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Tue, 11 Dec 2007 04:27:56 +0000 Subject: [PATCH] fixed with-output-to-file svn: r7948 --- collects/tests/mzscheme/uni-norm.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/tests/mzscheme/uni-norm.ss b/collects/tests/mzscheme/uni-norm.ss index 22b3a1c1fc..d654489bf0 100644 --- a/collects/tests/mzscheme/uni-norm.ss +++ b/collects/tests/mzscheme/uni-norm.ss @@ -28,7 +28,7 @@ (get-pure-port (string->url (string-append base name)))]) (with-output-to-file name (lambda () (copy-port (current-input-port) (current-output-port))) - 'truncate))) + #:exists 'truncate))) (or (existing) (begin (get-it) (existing)) (error "file not found: ~s" (string-append base name))))