debug.ml
stdune
1 2 3 4 5 6 7 8 9 let all = ref [] let register ~name f = all := (name, f) :: !all let dump () = ListLabels.map !all ~f:(fun (name, f) -> ( name , try f () with | exn -> Exn.to_dyn exn )) ;;
1 2 3 4 5 6 7 8 9
let all = ref [] let register ~name f = all := (name, f) :: !all let dump () = ListLabels.map !all ~f:(fun (name, f) -> ( name , try f () with | exn -> Exn.to_dyn exn )) ;;