open output data file truncated

This commit is contained in:
interp 2002-10-01 17:37:47 +00:00
parent 02169de482
commit bed81261f4
1 changed files with 1 additions and 1 deletions

View File

@ -147,7 +147,7 @@
;; for a simple 2D plot, readable by GNUPLOT (external program, not ;; for a simple 2D plot, readable by GNUPLOT (external program, not
;; part of SUnet, http://www.gnuplot.info/) ;; part of SUnet, http://www.gnuplot.info/)
(define (write-gnuplot-data-file output-file selector space-info-list) (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) (display "# generated by profile.scm\n" out)
(let loop ((count 0) (let loop ((count 0)
(space-info-list space-info-list)) (space-info-list space-info-list))