let on_record f = define_comp := f