919
919
TDefault TDotDot fun_start
921
922
| TCase eexpr TDotDot fun_start
922
923
{ Ast0.wrap(Ast0.Case(P.clt2mcode "case" $1,$2,P.clt2mcode ":" $3,$4)) }
927
(Ast0.DisjCase(P.clt2mcode "(" lp,code,mids, P.clt2mcode ")" rp)) } */
924
929
/* In the following, an identifier as a type is not fully supported. Indeed,
925
930
the language is ambiguous: what is foo * bar; */