---
src/data/sys-file-writer.c | 5 +----
1 files changed, 1 insertions(+), 4 deletions(-)
diff --git a/src/data/sys-file-writer.c b/src/data/sys-file-writer.c
index d84e4b4..ac5f4c9 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);
--
1.7.1
_______________________________________________
pspp-dev mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/pspp-dev
