diff options
author | Guillaume Melquiond <guillaume.melquiond@inria.fr> | 2015-07-30 07:56:49 +0200 |
---|---|---|
committer | Guillaume Melquiond <guillaume.melquiond@inria.fr> | 2015-07-30 07:56:49 +0200 |
commit | 5383cdc276d9ba7f1bb05bfe5aeae0a25edbd4a4 (patch) | |
tree | 314bbbcdf4b932bf98de14c19831ac4e5cfc8ee5 /tools/coqwc.mll | |
parent | 9a5fb78ef3c7c5d4f568a4d04e169475e9105def (diff) |
Remove usage of Printexc.catch in the tools, as it is deprecated since 2001.
"This function is deprecated: the runtime system is now able to print
uncaught exceptions as precisely as Printexc.catch does. Moreover, calling
Printexc.catch makes it harder to track the location of the exception
using the debugger or the stack backtrace facility. So, do not use
Printexc.catch in new code."
Diffstat (limited to 'tools/coqwc.mll')
-rw-r--r-- | tools/coqwc.mll | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/tools/coqwc.mll b/tools/coqwc.mll index 417ec5355..9a42553da 100644 --- a/tools/coqwc.mll +++ b/tools/coqwc.mll @@ -276,7 +276,7 @@ let rec parse = function (*s Main program. *) -let main () = +let _ = let files = parse (List.tl (Array.to_list Sys.argv)) in if not (!spec_only || !proof_only) then printf " spec proof comments\n"; @@ -285,8 +285,6 @@ let main () = | [f] -> process_file f | _ -> List.iter process_file files; print_totals () -let _ = Printexc.catch main () - (*i*)}(*i*) |