646
646
| Ast.Iterator(header,body,(_,_,_,aft)) ->
647
647
rule_elem arity header; statement arity body;
648
648
mcode (function _ -> ()) ((),Ast.no_info,aft,Ast.NoMetaPos)
649
| Ast.Switch(header,lb,cases,rb) ->
649
| Ast.Switch(header,lb,decls,cases,rb) ->
650
650
rule_elem arity header; rule_elem arity lb;
651
652
List.iter (function x -> case_line arity x; force_newline()) cases;
653
654
| Ast.Atomic(re) -> rule_elem arity re