X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Floop.c;h=c8715bcad149ca1539f678648c951ea7df8e0426;hb=63b39c9b76b2db4c9ac79050f256af8207802b7f;hp=b7dac89557d66109e32254edf0c8077522b6088b;hpb=4944c86a9318bc5b5578ab145a95c116ffd2c9fd;p=pspp-builds.git

diff --git a/src/loop.c b/src/loop.c
index b7dac895..c8715bca 100644
--- a/src/loop.c
+++ b/src/loop.c
@@ -30,8 +30,6 @@
 #include "str.h"
 #include "var.h"
 
-#undef DEBUGGING
-/*#define DEBUGGING 1*/
 #include "debug-print.h"
 
 /* *INDENT-OFF* */
@@ -194,7 +192,7 @@ internal_cmd_loop (void)
   /* Parse indexing clause. */
   if (token == T_ID && lex_look_ahead () == '=')
     {
-      struct variable *v = find_variable (tokid);
+      struct variable *v = dict_lookup_var (default_dict, tokid);
 
       two->flags |= LPC_INDEX;
 
@@ -254,10 +252,10 @@ internal_cmd_loop (void)
   /* Find variable; create if necessary. */
   if (name[0])
     {
-      two->index = find_variable (name);
+      two->index = dict_lookup_var (default_dict, name);
       if (!two->index)
 	{
-	  two->index = force_create_variable (&default_dict, name, NUMERIC, 0);
+	  two->index = dict_create_var (default_dict, name, 0);
 #if DEBUGGING
 	  envector (two->index);
 #endif