msupport_parsing.ml
1 2 3 4 (* Filled in from Msupport. *) let msupport_raise_error : (exn -> unit) ref = ref (fun exn -> raise exn) let raise_error exn = !msupport_raise_error exn
1 2 3 4
(* Filled in from Msupport. *) let msupport_raise_error : (exn -> unit) ref = ref (fun exn -> raise exn) let raise_error exn = !msupport_raise_error exn