diff options
Diffstat (limited to 'src')
| -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 |