open output data file truncated

2002-10-01 17:37:47 +00:00 · 2002-10-01 17:37:47 +00:00 · bed81261f4
parent 02169de482
commit bed81261f4
1 changed files with 1 additions and 1 deletions
--- 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))