diff options
| author | Pierre-Marie Pédrot | 2017-09-09 20:46:59 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2017-09-09 20:46:59 +0200 |
| commit | c7c1f9b2da838a604c479bb2bc162fef621524ed (patch) | |
| tree | 09f70d27f3793eff78d4d9c63e8347d670750251 | |
| parent | 6bc632021b47103b57abb34836766a57198d9cb4 (diff) | |
If backtrace is missing, don't print it.
| -rw-r--r-- | src/tac2entries.ml | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/tac2entries.ml b/src/tac2entries.ml index 208231b814..26f96f7d72 100644 --- a/src/tac2entries.ml +++ b/src/tac2entries.ml @@ -782,7 +782,10 @@ end let () = ExplainErr.register_additional_error_info begin fun (e, info) -> if !Tac2interp.print_ltac2_backtrace then let bt = Exninfo.get info backtrace in - let bt = Option.default [] bt in + let bt = match bt with + | Some bt -> bt + | None -> raise Exit + in let bt = str "Backtrace:" ++ fnl () ++ prlist_with_sep fnl pr_frame bt ++ fnl () in |