X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fdata%2Fsys-file-writer.c;h=ac5f4c903ed0266a4e50bc87a43c9b29e177cf9e;hb=3083d35230ebac09d4a13a5a68a6e7e04dc7a55a;hp=d84e4b4fcd8fea7a8594afd570aea011f723fca9;hpb=bf5a28ae469e2d82c1bc651de990e495da372621;p=pspp-builds.git

diff --git a/src/data/sys-file-writer.c b/src/data/sys-file-writer.c
index d84e4b4f..ac5f4c90 100644
--- a/src/data/sys-file-writer.c
+++ b/src/data/sys-file-writer.c
@@ -268,10 +268,7 @@ sfm_open_writer (struct file_handle *fh, struct dictionary *d,
   write_int (w, 0);
 
   if (write_error (w))
-    {
-      close_writer (w);
-      return NULL;
-    }
+    goto error;
 
   return casewriter_create (dict_get_proto (d), &sys_file_casewriter_class, w);