Contrast coefficients can only be numeric, so parse_value
is an unnecessary generalisation.
while (lex_token (lexer) != '.' && lex_token (lexer) != '/')
{
while (lex_token (lexer) != '.' && lex_token (lexer) != '/')
{
- union value val;
- if ( parse_value (lexer, &val, 0))
+ if ( lex_is_number (lexer))
{
struct coeff_node *cc = xmalloc (sizeof *cc);
{
struct coeff_node *cc = xmalloc (sizeof *cc);
+ cc->coeff = lex_number (lexer);
ll_push_tail (coefficient_list, &cc->ll);
ll_push_tail (coefficient_list, &cc->ll);
group_value.f = *group_value_p;
var_append_value_name (cmd->indep_var, &group_value, &vstr);
group_value.f = *group_value_p;
var_append_value_name (cmd->indep_var, &group_value, &vstr);
- tab_text (t, count + 2, 1, TAB_CENTER | TAT_TITLE,
- ds_cstr (&vstr));
+ tab_text (t, count + 2, 1, TAB_CENTER | TAT_TITLE, ds_cstr (&vstr));