From bed81261f4ff07b3d5cc60c8afb9c36637152e05 Mon Sep 17 00:00:00 2001 From: interp Date: Tue, 1 Oct 2002 17:37:47 +0000 Subject: [PATCH] open output data file truncated --- scheme/httpd/surflets/profile.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/scheme/httpd/surflets/profile.scm b/scheme/httpd/surflets/profile.scm index 96c17a2..e2a11c5 100644 --- a/scheme/httpd/surflets/profile.scm +++ b/scheme/httpd/surflets/profile.scm @@ -147,7 +147,7 @@ ;; for a simple 2D plot, readable by GNUPLOT (external program, not ;; part of SUnet, http://www.gnuplot.info/) (define (write-gnuplot-data-file output-file selector space-info-list) - (let ((out (open-output-file output-file))) + (let ((out (open-output-file output-file (bitwise-ior open/create open/truncate)))) (display "# generated by profile.scm\n" out) (let loop ((count 0) (space-info-list space-info-list))