let
on_record f = define_comp := f