diff options
| -rw-r--r-- | checker/checker.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/checker/checker.ml b/checker/checker.ml index 1bdd0f0e20..abf3704b42 100644 --- a/checker/checker.ml +++ b/checker/checker.ml @@ -358,6 +358,7 @@ let init_with_argv argv = Sys.catch_break false; (* Ctrl-C is fatal during the initialisation *) try parse_args argv; + if !Flags.debug then Printexc.record_backtrace true; Envars.set_coqlib ~fail:Errors.error; if_verbose print_header (); init_load_path (); @@ -373,6 +374,7 @@ let run () = compile_files (); flush_all() with e -> + if !Flags.debug then Printexc.print_backtrace stderr; fatal_error (explain_exn e) let start () = init(); run(); Check_stat.stats(); exit 0 |