X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=src%2Flanguage%2Fcontrol%2Floop.c;h=0db3a491d391dc152aaeebc2f997e22198602b65;hb=5fa244a7b0fcbd971e760cb67644514fe22aa4a3;hp=4dbc7c90bd7ff0c3f62bf444177d50efed3974f8;hpb=25a6f95a0cbe4a670b27943901b3af2cefc3e435;p=pspp

diff --git a/src/language/control/loop.c b/src/language/control/loop.c
index 4dbc7c90bd..0db3a491d3 100644
--- a/src/language/control/loop.c
+++ b/src/language/control/loop.c
@@ -180,15 +180,12 @@ parse_index_clause (struct dataset *ds, struct lexer *lexer,
 {
   if (loop->index_var != NULL)
     {
-      msg (SE, _("Only one index clause may be specified."));
+      lex_error (lexer, _("Only one index clause may be specified."));
       return false;
     }
 
-  if (lex_token (lexer) != T_ID)
-    {
-      lex_error (lexer, NULL);
-      return false;
-    }
+  if (!lex_force_id (lexer))
+    return false;
 
   loop->index_var = dict_lookup_var (dataset_dict (ds), lex_tokcstr (lexer));
   if (!loop->index_var)