exn_to_string : exn -> string
- exn_to_string Interrupt; > Interrupted. - exn_to_string Div; > val it = "Div" : string - print (exn_to_string (mk_HOL_ERR "Foo" "bar" "incomprehensible input")); Exception raised at Foo.bar: incomprehensible input > val it = () : unit