+ Wrappi_accumulator.add_entry_point ep
+ >>
+
+let add_typedef _loc name t =
+ let loc = expr_of_loc _loc _loc in
+
+ <:str_item<
+ let td = { Wrappi_types.td_loc = $loc$;
+ td_name = $str:name$;
+ td_type = $t$ } in
+ Wrappi_accumulator.add_typedef td