let register_sig_item_printer f = sig_item_printer := f