let equal_declaration d1 d2 =
match (Ast0.unwrap d1,Ast0.unwrap d2) with
(Ast0.MetaDecl(name1,_),Ast0.MetaDecl(name2,_))
- | (Ast0.MetaField(name1,_),Ast0.MetaField(name2,_)) ->
+ | (Ast0.MetaField(name1,_),Ast0.MetaField(name2,_))
+ | (Ast0.MetaFieldList(name1,_,_),Ast0.MetaFieldList(name2,_,_)) ->
equal_mcode name1 name2
| (Ast0.Init(stg1,_,_,eq1,_,sem1),Ast0.Init(stg2,_,_,eq2,_,sem2)) ->
equal_option stg1 stg2 && equal_mcode eq1 eq2 && equal_mcode sem1 sem2