Parsing Function--expr

void expr_list(void)
{
/* <expr list> ::= <expression> { , <expression> } */
expr_rec out_expr;

        while (next_token() == COMMA)
        {
              match(COMMA);
              expression(&out_expr);
              write_expr(out_expr);
        }
}