X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Floop.c;h=424e5aabaf6aba050e536cadc7472b067924e2d7;hb=18febf84744dc7ab4248542c2f88d91c01ef3fa1;hp=1ccd1a5631f69faab42ba0452c1d17f0565e27b4;hpb=fcb9e49b2a2d57af7c001ae5d2eda9ac443ba36b;p=pspp-builds.git

diff --git a/src/loop.c b/src/loop.c
index 1ccd1a56..424e5aab 100644
--- a/src/loop.c
+++ b/src/loop.c
@@ -192,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;
 
@@ -252,14 +252,9 @@ 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);
-#if DEBUGGING
-	  envector (two->index);
-#endif
-	}
+        two->index = dict_create_var (default_dict, name, 0);
     }
   
   /* Push on control stack. */
@@ -538,7 +533,7 @@ cmd_break (void)
 }
 
 static int
-break_trns_proc (struct trns_header * trns, struct ccase * c unused)
+break_trns_proc (struct trns_header * trns, struct ccase * c UNUSED)
 {
   return ((struct break_trns *) trns)->loop_term;
 }