let fold_calls process ff acc = let fm = ff.T.ff_marks in CallInfo.fold_calls process ff (get_marks fm) acc