let record_format comp = D.e_app0 (Cformat.get_definition comp).d_name