let
get_slice_callers ff =
List
.map (
fun
(ff, _)
->
ff) ff.
T
.ff_called_by