in
List.iter (
- fun (_, style, _, _, _, _, _) ->
- match fst style with
+ fun (_, (ret, _, _), _, _, _, _, _) ->
+ match ret with
| RStruct (_, structname) -> update structname RStructOnly
| RStructList (_, structname) -> update structname RStructListOnly
| _ -> ()
pod2text_memo_updated ();
lines
+(* Compare two actions (for sorting). *)
+let action_compare (n1,_,_,_,_,_,_) (n2,_,_,_,_,_,_) = compare n1 n2