check arity of exception

[bobzhang]

let f  : 'a -> 'b = raise Not_found

let f : 'a -> 'b -> c = fun _ -> raise Not_found

[stale]

This issue has been automatically marked as stale because it has not had recent activity. It will be closed if no further activity occurs. Thank you for your contributions.