Source file msupport_parsing.ml

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

let raise_error exn = !msupport_raise_error exn