Fix memory leak in sweep.c

[pspp] / lib / linreg / sweep.c

diff --git a/lib/linreg/sweep.c b/lib/linreg/sweep.c
index 0dfa71fb6ac0468bcf058763d1894c5e25c287fc..b72d24a7edfebfba71201b28a34d13a374c08804 100644 (file)
--- a/lib/linreg/sweep.c
+++ b/lib/linreg/sweep.c
@@ -169,8 +169,8 @@ reg_sweep (gsl_matrix * A, int last_col)
                  }
            }
          gsl_matrix_free (B);
-         return GSL_SUCCESS;
          free (ordered_cols);
+         return GSL_SUCCESS;
        }
       return GSL_ENOTSQR;
     }