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