#include <language/data-io/file-handle.h>
#include <language/lexer/lexer.h>
#include <language/lexer/variable-parser.h>
-#include <libpspp/alloc.h>
#include <libpspp/compiler.h>
+#include "xalloc.h"
+
/* (headers) */
struct cor_set
matrix_file = NULL;
if (!parse_correlations (lexer, ds, &cmd, NULL))
- return CMD_FAILURE;
+ {
+ fh_unref (matrix_file);
+ return CMD_FAILURE;
+ }
free_correlations (&cmd);
+ fh_unref (matrix_file);
return CMD_SUCCESS;
}
matrix_file = NULL;
else
{
+ fh_unref (matrix_file);
matrix_file = fh_parse (lexer, FH_REF_FILE);
if (matrix_file == NULL)
return 0;