- if ( lex_force_match (lexer, T_LPAREN) )
- {
- if ( lex_match_id (lexer, "SCALE"))
- level = MEASURE_SCALE;
- else if ( lex_match_id (lexer, "ORDINAL"))
- level = MEASURE_ORDINAL;
- else if ( lex_match_id (lexer, "NOMINAL"))
- level = MEASURE_NOMINAL;
- else
- {
- free (v);
- return CMD_FAILURE;
- }
-
- if (!lex_force_match (lexer, T_RPAREN))
- return CMD_FAILURE;
- }
+ if (!lex_force_match (lexer, T_LPAREN))
+ goto error;
+
+ enum measure level;
+ if (lex_match_id (lexer, "SCALE"))
+ level = MEASURE_SCALE;
+ else if (lex_match_id (lexer, "ORDINAL"))
+ level = MEASURE_ORDINAL;
+ else if (lex_match_id (lexer, "NOMINAL"))
+ level = MEASURE_NOMINAL;