X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Foutput%2Fcsv.c;h=625ce82a07505dd99dddff562c5981568af2d311;hb=9726274d5f05f9c49a94180b649c1fbf692492e3;hp=4b99772d42417d04a9ee1a3668ed943531567aa3;hpb=572fab1a5ed253a07a182e273c666315d0e696cd;p=pspp-builds.git

diff --git a/src/output/csv.c b/src/output/csv.c
index 4b99772d..625ce82a 100644
--- a/src/output/csv.c
+++ b/src/output/csv.c
@@ -92,10 +92,11 @@ csv_destroy (struct output_driver *driver)
 {
   struct csv_driver *csv = csv_driver_cast (driver);
 
+  if (csv->file != NULL)
+    fn_close (csv->file_name, csv->file);
+
   free (csv->separator);
   free (csv->file_name);
-  if (csv->file != NULL)
-    fclose (csv->file);
   free (csv);
 }