X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Frepeat.c;h=bf89fedecd50f0b5e131ed3c2141d814e59fa5f1;hb=d4d9866bb2ec1797b8fb103e7144d0e9ffd1abff;hp=8b66a7122a936e8d4eacc216f887fcd3d0793ee6;hpb=4944c86a9318bc5b5578ab145a95c116ffd2c9fd;p=pspp

diff --git a/src/repeat.c b/src/repeat.c
index 8b66a7122a..bf89fedecd 100644
--- a/src/repeat.c
+++ b/src/repeat.c
@@ -18,12 +18,12 @@
    02111-1307, USA. */
 
 #include <config.h>
+#include "repeat.h"
 #include <assert.h>
 #include <ctype.h>
 #include <math.h>
 #include <stdlib.h>
 #include "alloc.h"
-#include "cases.h"
 #include "command.h"
 #include "error.h"
 #include "getline.h"
@@ -33,8 +33,6 @@
 #include "str.h"
 #include "var.h"
 
-#undef DEBUGGING
-/*#define DEBUGGING 1*/
 #include "debug-print.h"
 
 /* Describes one DO REPEAT macro. */
@@ -330,14 +328,7 @@ internal_cmd_do_repeat (void)
 	    {
 	      /* Note that if the variable already exists there is no
 		 harm done. */
-	      struct variable *v = create_variable (&default_dict,
-						    iter->replacement[i],
-						    NUMERIC, 0);
-
-	      /* If we created the variable then we need to initialize
-		 its observations to SYSMIS. */
-	      if (v)
-		envector (v);
+	      dict_create_var (default_dict, iter->replacement[i], 0);
 	    }
 	}
   }
@@ -515,7 +506,7 @@ cmd_end_repeat (void)
 
 /* Finds a DO REPEAT macro with name MACRO_NAME and returns the
    appropriate subsitution if found, or NULL if not. */
-char *
+static char *
 find_DO_REPEAT_substitution (char *macro_name)
 {
   struct getl_script *s;