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