From c9f359a3c4eaa2e03cf4d13d533c751828ed2675 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Tue, 18 May 2010 19:12:53 -0400 Subject: [PATCH] Fix a small problems in generating the readme file. --- collects/meta/build/bundle | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/meta/build/bundle b/collects/meta/build/bundle index be80296b1d..e9027fd33c 100755 --- a/collects/meta/build/bundle +++ b/collects/meta/build/bundle @@ -502,7 +502,7 @@ (set! *readme-cache* (file->string *readme-file*)) (set! *info-domain-cache* (with-input-from-file *info-domain-file* read))) (define (write-orig-files) - (display-to-file *readme-file* *readme-cache*) + (display-to-file *readme-cache* *readme-file* #:exists 'truncate) (with-output-to-file *info-domain-file* #:exists 'truncate (lambda () (write *info-domain-cache*) (newline))))