Fixed bug #11227 (T-Test not working with alpha independent variable )

[pspp-builds.git] / src / main.c

diff --git a/src/main.c b/src/main.c
index b0582c1b297a5e28bf298be6471869acbf95a9b8..b4aa243518f7851e3adbf496ebe51059ef730a74 100644 (file)
--- a/src/main.c
+++ b/src/main.c
@@ -23,12 +23,14 @@
 #include "main.h"
 #include "cmdline.h"
 #include "command.h"
+#include "dictionary.h"
 #include "error.h"
 #include "getline.h"
 #include "glob.h"
 #include "lexer.h"
 #include "output.h"
 #include "settings.h"
+#include "var.h"
 #include <signal.h>
 
 #include <stdlib.h>
@@ -56,13 +58,6 @@ void bug_handler(int sig);
    we hit end-of-file unexpectedly (or whatever). */
 int start_interactive;
 
-/* Initialise error handling on the gsl library */
-static void 
-err_handler_gsl (const char *reason, const char *file,
-       int line, int gsl_errno UNUSED)
-{
-  msg(FE, _("gsl error at %s:%d; reason: \"%s\""), file,line,reason);
-}
 
 /* Program entry point. */
 int
@@ -70,7 +65,7 @@ main (int argc, char **argv)
 {
   signal (SIGSEGV, bug_handler);
 
-  gsl_set_error_handler(err_handler_gsl);
+  gsl_set_error_handler_off();
 
   /* Initialization. */
   if (!outp_init ())
@@ -107,6 +102,7 @@ static int
 execute_command (void)
 {
   int result;
+  
   /* Read the command's first token.
      We may hit end of file.
      If so, give the line reader a chance to proceed to the next file.
@@ -130,6 +126,9 @@ execute_command (void)
   /* Unset the /ALGORITHM subcommand if it was used */
   unset_cmd_algorithm ();
 
+  /* Clear any auxiliary data from the dictionary. */
+  dict_clear_aux (default_dict);
+
   return result;
 }