diff options
| author | Guillaume Melquiond | 2015-07-30 07:56:49 +0200 |
|---|---|---|
| committer | Guillaume Melquiond | 2015-07-30 07:56:49 +0200 |
| commit | 5383cdc276d9ba7f1bb05bfe5aeae0a25edbd4a4 (patch) | |
| tree | 314bbbcdf4b932bf98de14c19831ac4e5cfc8ee5 /tools/coqdoc | |
| 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/coqdoc')
| -rw-r--r-- | tools/coqdoc/main.ml | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/tools/coqdoc/main.ml b/tools/coqdoc/main.ml index 9531cd2b07..2554ed495b 100644 --- a/tools/coqdoc/main.ml +++ b/tools/coqdoc/main.ml @@ -557,10 +557,8 @@ let produce_output fl = (*s \textbf{Main program.} Print the banner, parse the command line, read the files and then call [produce_document] from module [Web]. *) -let main () = +let _ = let files = parse () in Index.init_coqlib_library (); if not !quiet then banner (); if files <> [] then produce_output files - -let _ = Printexc.catch main () |