let for_callbacks_stack () =
    List.map (fun {called_kf = kf; call_site = ki} -> kf,ki) !call_stack