X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fstats%2Fctables.c;h=5359c4cabd3d010a8dd2c6ef55eeb44c31108ee7;hb=a208fcf0dcdcc445dd7d492e00ebdf3ce23e247f;hp=dd0978731bbce5da5c4910ed7e837d9d18334437;hpb=911c83be2e2074a787f37a8da948d6a5e3838f83;p=pspp

diff --git a/src/language/stats/ctables.c b/src/language/stats/ctables.c
index dd0978731b..5359c4cabd 100644
--- a/src/language/stats/ctables.c
+++ b/src/language/stats/ctables.c
@@ -5710,9 +5710,7 @@ ctables_parse_pcompute (struct lexer *lexer, struct dictionary *dict,
   char *name = ss_xstrdup (lex_tokss (lexer));
 
   lex_get (lexer);
-  if (!lex_force_match (lexer, T_EQUALS)
-      || !lex_force_match_id (lexer, "EXPR")
-      || !lex_force_match (lexer, T_LPAREN))
+  if (!lex_force_match_phrase (lexer, "=EXPR("))
     {
       free (name);
       return false;